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ABSTRACT 


TEMPOA is a computer interactive version of the orignial 
General Electric TEMPO game, and is written for the Apple III 
microcomputer. A minimum of two players vie for a strategic 
‘win’ through judicious budgetary planning in the development 
and procurement of realistic weapon systems. All decisions 
are subject to the constraints of limited budgets, naxrdware 
inventories, research and development time lags and the uncer- 
tainties of war and inflation. A third party, assuming the 
role of game umpire, selects all simulation parameters and 


oversees the play of the game. 
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te. LNTRODUCTION 


The simulation exercise TEMPO is an example of the histor- 
ical interest shown towards wargaming by the U.S. military. 
The TEMPO military planning game was conceived and designed 
by the Technical Military Planning Organization (TEMPO) of 
General Electric Company cf Santa Barbara, California, in the 
early sixties as a strategic budget planning wargame. 

While originally a manually played simulation, TEMPO was 
designed to pit the budgetary planning and decision making 
skills of opposing teams against one another, victory being 
achieved when one team had gained a clear superiority of 
capabilities at game end. Both the measures of superiority 
and the goal of the exercise are two aspects or the game 
which nave undergone changes during the ensuing two decades 
Since its Original inception. 

Receiving wide dissemination in botn civilian and mili- 
tary communities, the game has been used by the Defense 
Resources Management Course at the Naval Postgraduate School; 
BaenmU.5>. Army Management School at Ft. Beivoir, Virginia; 
the Air War College, Air Command and Staff College, and Squa- 
dron Officers' School all at Maxweli Air Force Base, Alabama. 
As recently as 1981 TEMPO was introduced as a software simu- 
lation on the PDP 11/70 computer in the Naval Postgraduate 


School's Command, Control and Communications (C3) Laboratory. 





TEMPOA, the subject of this thesis, is an adaptation of 
a version of TEMPO to the Apple III microcomputer. Considered 
by many to be ‘'state-of-the-art' at this date, the Apple III 
with its 128K expandable memory lends itself to large scale 
programming in a way never before available to such a vast 
audience. 

As a software device for the Apple III, the TEMPOA 
program will enable users to simulate the decision making 
process and resource management dilemmas embodied in the 
weapons development and procurement processes. While an 
attempt has been made to accurately replicate annual budget 
overheads, research and development constraints, time 
limitations and the uncertainties of war and inflation, the 
game is only a facsimile and falls short of realism on 
several counts, as detailed later. However, the highlights 
of the original game and the major influences in the 
budgeting process are contained in TEMPOA, and the adapta- 


tion 1S an enhancement in many ways over previous versions. 





II. GENERAL DESCRIPTION 


TEMPOA requires at a minimum two players and an umpire. 
The players align tnemselves into two teams and alternate 
during the game in making annual procurement and investment 
decisicns. The game simuiates a period of time of up to 
twenty years, and can be terminated at the close of any year. 

Player decisions revolve about the development and 
procurement of new weapon systems (research and development), 
the buildup or scrapping of systems existing in current 
inventories and the investment of funds into intelligence 
gathering activities. Decisions are transformed into 
expenditures, which in turn promote a player's global capa- 
bilities. These capabilities are directly assessed in 
terms of weapon system ‘'utils', a single measure assigned 
each unit of a particular system. 

Rach player may be faced with choices affecting up to 
tnirty weapon systems during the play of the game. Systems 
are of two basic sorts, offensive or defensive, and are 
further subdivided into two categories, weapon system tyve 
A (strategic) or weapon system type B (tactical). A tvpe B 
defensive weapon system may only be used to defend against 
a type B offensive weapon system. Type A systems are 


Similarly constrained. 


LO 





At the conclusion of each year, after both players have 
completed and entered all decisions for the vear, TEMPOA 
computes an annual winner based on gross offensive weapon 
System Utriity points accumulated by each player for systems 
in inventory, discounted by the appropriate cefensive system 
utility values amassed by his opponent. If a large discrep- 
ancy eXists between player standings, then there exists a 
Significant possibility cf war, as computed by an algorithm 
detailed later. A war translates to a healthy budget cut 
for the player witn the lesser net utility score. 

The role of the umpire is twofold; to initialize all 
game parameters at the outset, and to monitor the annual 
play. A major enhancement in the current version of TEMPOA 
is the degree of control exercised by the game umpire in 
selecting gare parameters. The term ‘game parameters' 
loosely refers to individual system parameters (twenty 
total) of up to thirty game weapon systems, the expected 
values for annual olayers’ operating budgets, and the means 
by which the war event is to be determined. In all cases, 
default values are available. 

All computations, which in most previous versions were 
accomplisned with tedium and exasperation by hand, are 
carried out internally by TEMPOA. Pertinent results are 
displayed immediately to ovlayers during the game, and each 
player is presented annually with the opportunity for 


obtaining a printed summary of nis current inventory and his 


uml 








budget status (assuming a compatible printer is configured 
to the Apple III RS232 port or that an Apple Silentype 
mBernter 1s utilized). 

At the conclusion of any qame vear the umpire may select 
to halt the present game for resumption at a later time. 
Upon resumption, TEMPOA begins with the game year subsequent 
to the termination of the original play, and proceeds using 
all game parameters effective during the last active piay. 
In this manner, play may be periodically postponed to allow 
for in deptn examination of the game situation, a more 
extensive analysis and forecast of decision consequences, or 
Simply to enable the simulation of several decades of 
systems development in the game while allowing the players 


to proceed in their decisions at a more leisurely pace. 


ae 





imho PEE PLAY 


The following sections detail step-by-step each facet 
of the game play. The software itself has been designed 
so as tO minimize the amount of preparatory work necessary 
EOoeine actual play, and no prior information on the part 
of the players, beyond knowledge of the gaming objective 
itself, is presumed by TEMPOA. While TEMPOA was written to 
be self-explanatory and user friendly, a familiarity with 


this document will enhance a player's performance. 


ae |)6OBUECTIVE 


System Points Points allotted 


Under 2000 Face Value 

2000-2999 2000 + 90% of amount over 2000 
3000-3999 2900 + 80% of amount over 3090 
4000-4999 3700 + 70% of amount over 4000 
5000-5999 4400 + 603 of amount over 5000 
6000-6999 5000 + 50% of amount over 6000 
7000-7999 5500 + 40% of amount over 7000 
8000-8999 5900 + 30% of amount over 8000 
9000-9999 6200 + 20% of amount over 9000 
10000-10999 6400 + 10% of amount over 10000 
Over 11000 6500 (maximum) 

Figure 3.1 Utility Point Discount Rate 


Bach player begins TEMPOA with the same collection of 


weapon systems. Hach system can be one of four distinct 


types; offensive type A (OA), cefensive type A (DA), offen- 


Sive type B (OB), or defensive type B (DB). In addition, 


ie 





when the program initializes, a unique utility value is 
assigned to units of each weapon system. The gross util 
value of that system is determined as the product of the 
system unit util value and the number of units of that 
weapon system in current inventory. This product is then 
Giscounted to reflect the diminishing marginal returns 
associated with increasing quantities of a given system. 
The discount rate is depicted in Figure 3.1. Summing the 
final gross figure over all systems of that type (OA, for 
example) results in the total player capability figure for 
that weapon system type. 

If system type A is translated to mean a 'strategic' 
weapon system, and type B a ‘tactical’ system, then it 
Follows that a type DA system would only be used to counter 
the opponent's type OA weapon system threat. To carry this 
Moeclion Out mathematically and arrive at a single net utility 
score for a player, his total util figures for his offensive 
system types are decremented by his opponent's corresponding 
defensive util figures. When the defense for a system type 
exceeds the value of the opponent's offense for that weapon 
system collection, then the net offensive value of the 
system type is zero. That is, no credit is given for 
exceeding the utility figure necessary to neutralize an 
Opponent's cifensive capability. Figure 3.2 is an example 


Seemow TEMPOA*s algorithm is carried out in practice. 


14 





Annually, TEMPOA determines which player achieves the 
greatest net utility figure and declares him winner. Ties 
are called when opposing net utility figures are equal. 

The effects of a player's decisions spill over from one 
year to the next, and the inventories of a given year may 
be viewed as histories, cumulative figures which encapsule 
all previous game decisions. As a result, the annual winner 
has done more than acquire a victory during that cycle of 
the game play, and has achieved a cumulative superiority 
Over his opponent. The winner declared at vear end, then, 
1s the collective winner of tne game to date as well. 

The players' goal is to acnieve offensive superiority 
while thwarting his opponent's efforts tnrough an adequate 
defense. This goal will be frustrated by budget ceilings 
and the uncertainties as to where the opponent is channeling 


his resources. 


3. STARTING 

The following subsections deal with the initial setup of 
TEMPOA; program activation, preliminary data entry, and the 
role of the umpire. 

1. Preliminaries 

The TEMPOA program is booted (initialized) by 

Meer cing the 5 1/4" floppy "TEMPOA DISK 1" diskette into 
the Apple III's internal disk drive and turning the computer 
on. The boot is successful when the program logo is dis- 


played on the monitor. 


} 
Ul 





Following the displayed instructions, players will 
be queried as to whether the current game is a resumption 
of a previous play, or whether it is to be a fresh game. 
mae intent of this option is explained later. In most cases 
the game will be a new play. 

When players arrive at the point depicted in Figure 
3.3 they are asked to enter their respective player/team 
names. For identification purposes, the program requires 
each player/team to use a distinct title. The program will 
distinguish between upper and lower case entries. 

Additionally, TEMPOA requires of each player a code- 
word. This codeword is a keyboard entry which will act as 
maentification verification annually, prior to allowing 
access to that portion of TEMPOA reserved for recording 
players' decisions and budget information. The present 
insertion is the only instance when the entered codeword is 
Visible (and once the RETURN key is depressed, the entered 
codeword vanishes). Throughout the remainder of the game, 
entered codewords do not show up on the monitor. It is 
strongly suggested therefore that chosen codewords be brief, 
be either all upper case letters or all lower case letters, 
and lend themselves to easy memorization. There is no 
Beeovery for forgotten codewords. 

Players will be advised to insert TEMPOA DISK 2 into 
the external drive. After confirming the insertion by 


pressing RETURN, a delay of 10-15 seconds occurs while player 


16 





Player l Player 2 


System iocaul System Total 
Type WeLls Type Utils 
OA 800 OA 1000 
OB 1000 OB 900 
DA 1200 DA 1000 
DB 900 DB 800 


PLAYER 1 NET SCORE: 


Player l OA 800 

Sys - Player 2 DA = O00 

A = Net System A = -200 
(if negative, set to 0) (set to 0) 

Player 1 OB 1000 

Sys -~ Player 2 DB - 800 

B - Net System 38 = 200 


(if negative, set to 0) 
NET VALUE = SYS A + SYS B = 0 + 200 = 200 


Figure 3.2 Player 1 Net Utility Computation 


Enter the name of Player Number 1 (Then press RETURN): 
Enter a codeword for Player 1 (Then press RETURN): 


Enter the name of Player Number 2 (Then press RETURN): 
Enter a codeword for Player 2 (Then press RETURN) : 


ENSURE TEMPO DISK #2 IS LOADED INTO DRIVE #2 
<Press RETURN to Continue > 


Figure 3.3 Player Data Entrv Page 


by 





information is recorded and pertinent segments of the main 
program are loaded into computer memory. 


2. Umvire 
ae 


kK RK KKK KKK RK AK KKKK KK KK KEKE 
2. JUMPIRS INS@RUCTLONS= *** 


KKK KKK KKK KKK KKK EEE 
* Printer Status * 


Enter the number corresponding to printer status: 


1...RS232 UNIT attached and configured to 
receive data 


2...APPLE SILENTYPE UNIT attached 


2 Pie tonweleEner. nOoteconnected or not of 
option type 


Bigube 3.47 Printer Selection 


The umpire segment and the main code file has been 
successfully retrieved from DISK 2 and loaded into main 
memory when the display depicted in Figure 3.4 appears on 
the monitor, unless the play is a continuation of a previous 
game. In the latter case, the monitor displays a codeword 
request page for player access for the year following the 
point the play was previously interrupted. And in any event, 
if the computer fails to communicate with the diskette loaded 
mi the external drive, che cue 'FILE TEMPOA: TEMPOA.CODE 
NOT FOUND' will appear at the top of the monitor, and drive 
activity will halt. The volayers should re-insert TEMPOA 


DISK 2 into the external drive and reinitialize the Apple III. 
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Following the successful code file loading, the 
umpire is requested to indicate what type of printer is 
connected to the Apple III. Both a printed forecast and 
an exhaustive annual summary of each player's game status 
(detailed in later sections) are made available at the 
termination at the end of a player's decision cycle. 

Neither summary nor forecast will be offered unless the 
umpire has indicated the presence of a compatible printer. 
Selection of the SILENTYPE option will assume that the 
printer is connected to the Apple printer port A. Selection 
of the RS232 option assumes the printer is properly confis- 
ured to communicate with the Apple. 

Having indicated the printer status, the umpire is 
presented witn the display depicted in Figure 3.5. This 
menu allows the umpire access to all weapon systems param- 
eters, budget forecasts, and a section designed to allow him 


to override TEMPOA's algorithmic expectation of war. In 


* Systems Review * 


1...Browse/Alter default weapon system budget 
Parameters 


..-Add new systems 


-.-Delete a system 


weeoteect EO Control the annual probability of war 


2 

3 

4...Browse/Alter annual budgets for ail game years 

=) 

6...Obtain printout of all game systems and parameters 
a 


-.--Quit umpire section and begin game play 
Figure 3.5 Umpire Menu 


die 





addition, the umpire may elect to have TEMPOA produce an 
initial systems printout, if a printer is attached. Such a 
printout, detailing each parameter setting of all game 

weapon systems, provides the umpire with complete reference 
information unavailable to the individual players. The 
players are only permitted to peruse those systems and R & D 
candidates which either are available in the current year, or 
were available to them in some previous year. Opportunity 
systems whicn are not yet available are masked from the 
players by TEMPOA. 

A final umpire option is to forgo any changes and quit 
the umpire game segment, beginning the play with default game 
parameters. The default settings are discussed individually 
in the following sections. 

Once the umpire guits the umpire game segment, all 
budget and weapon system varameters are fed identically to 
botn players, so that both begin the play with equal 
opportunities. 

a. Weapon Systems 

The umpire may browse or alter the weapon system 
Parameters through appropriate selections from the umpire's 
Main menu (Figure 3.5). From the same menu he may opt to 
delete entire systems or create new systems. A total of thir- 
teen totally new weapon systems may be manufactured by the 
umpire, and can augment the seventeen default systems resident 


in TEMPOA. Since any or all of the parameters in the default 
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A Name eye ens OA2 

B BIS seo isons Offensive System Weapon Type A 

c Diesemypesi RxD wean SEAL +... 5.5 ss ees cee 3 ee tee ewes i 
D Yrs R&D completed at game Sstart:........ essen 6) 
E IPS IOS ISR ID) | WVGSUG ee aia ee ee a $400 
F Se COMemen ome TCOSE S 5 < 5 «a leteiaue so si eyeuaiiisi eo ejereus « $900 
G MGMeRChe Ra Year COSTS. ..5 52 c ee ccc ee wn tees eee 5700 
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I Umics tm imvencory (at Game Stare) <:.5...-2cese see ee g 
a RecumctmetOnmcest (Per UME): . 66... ce i ce eee eee ss $300 
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Enter one of tne FOLLOWING options: 


A...Delete displayed system and advance page 

B...Advance page without deleting displayed 
system 

Gee Oui1t deleting 


Figure 3.6 Umpire Systems Browse 


systems may be accessed and altered by the umpire, the total 
number of configurable weapon systems for game play is thirty. 

Figure 3.6 shows the display that the umpire is 
eresented with when the Browse/Alter option is used. An 
explanation of each system parameter follows. 

‘System Name' is any alphanumeric string of char- 
acters. The seventeen default systems are loaded initially 
with generic names, such as OAl, DB2, etc., but may be umpire 
altered to read HARPOON, MX1l1, etc. to enhance the flavor of 
the game. 

‘System Type' refers to which of the four cate- 


gories the displayed weapon system belongs. 
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The next five program lines deal with research 
and development. Normally, all systems which are not in 
inventory must be acquired through an R & D process. How- 
ever, the umpire has the option of making available systems 
not requiring R & D. This option is exercised by making the 
appropriate entries in Figure 3.6. (If the umpire elects to 
use the default systems,only four will appear in inventory 
at game start.) 

"EeRESt Year R & D Can Start' refers to the game 
fear in which the opportunity for initiating the project is 
first available. ‘Yrs R & D Completed at Game Start’ allows 
the umpire to begin the game with R & D partially completed 
on selected systems. The next three lines indicate the 
annual expenses of conducting R & Dona system. An R & D 
project may last from one to three years. To account for 
inflation and possible cost overruns, a uniformly distributed 
random variable is drawn from the discrete set {0, 50, 100, 
150, 200}. The ‘actual’ annual expense of R & Dis the sum 
of this variable and the umpire's elected R & D expense figure. 
This result will be made known to the players as the game 
progresses. 

The “Earliest Year Available (After R & D)' 
refers to tne first year in which the player may add the 
System to his inventory. Adding the number of required years 
of R & D to the first year R & D can start should result in 


the first year the system becomes available. TEMPOA conducts 
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this simple check on all systems created or altered, and 
will alert the umpire of the discrepancy when an attempt 1s 
made to either advance the vage in the 'Browse/Alter' option, 
or quit the umpire segment. 

‘Units in Inventory' is applicable only to those 
systems in inventory at game start and not requiring R & D. 

‘Acquisition Cost’ is the purchase price per 
unit, and is assessed only cnce during the game olay upon 
unit procurement. 

‘Operating Cost' is the annual cost of maintaining 
and operating a unit in inventory. This is an annual assess- 
ment. Units which are in inventory are assumed to be operated, 
and are so assessed. 

'Value in Utils' is simply the unit util value, 
and when multiplied by the number of units in inventory, 
produces the gross util value of the weapon system. 

A ceiling exists for the number of units of a 
Specific weapon system which may be procured during any given 
year. This is referred to as ‘Purchase Rate' and is the 
final system parameter listed in Figure 3.6. 

b. Budget 

Eacn player begins his year with the same budget 
figure as his opponent. This amount is based on the budget 
Figures elected by the umpire. Figure 3.7 depicts the vage 
on which this election is made, and is accessed throusch the 


umpire's main menu. The values presented are the default 
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BUDGET INFORMATION 


YEAR AMOUNT ($) YEAR AMOUNT (S$) 
il 9300 a 9300 
2 9600 12 9600 
3 9400 13 9400 
4 9200 14 9200 
5 9100 ies 9100 
6 9100 16 9100 
7 9190 17 9100 
8 9100 18 9100 
9 9100 19 9100 

10 9100 20 9100 


fauuer © tO Make a Chlange= 
2 nee GeO wt OeGguit> 


Beure 5.7 Umpire Budget Review 


budget values, and the years shown span the maximum duration 
of the game, twenty years. (The umpire is queried annually 
whetner or not to conclude the game.) 

TEMPOA deviates from the umpire elected budget 
figure in the following manner: In an attempt to simulate 
effects of inflation, budget cuts and budget increases, a 
uniformly distributed random variable is drawn annually from 
the interval [-1000, 500]. The actual budget figure 
presented to and utilized by the players is the umpire- 
elected value (Figure 3.7) summed with the random drawn 
variable. (Budget surpluses are not carried over into the 
Following year.) This final figure, discounted by penalties 
accrued by the player, is displaved in several locations 
to each player during the vear in which tne figure is appli- 
cable. (Penalties are discussed later in the Penalties 
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section.) In addition, the umpire's elected figure for the 
following year is displayed to the players in the annual 
Budgetary/Systems Purchase Status tableau, explained later. 
c. Probability of War 

At the end of each year, after both players have 
completed their decision cycles, TEMPOA computes the annual 
probability of war. First the program determines the player 
with the larger net utility capability (as described in the 
Objective section) and declares him game winner for tne year. 
It then algorithmically computes the ratio of tne smaller 
net utility figure over the larger, and subtracts the results 
from unity. The final figure is the TEMPOA annual probability 
of war. Note that the larger the disparity between player 


capability, the greater the resulting probability of war. 


PROBABILITY OF WAR COMPUTATION OPTION 

The annual possibility of a war is determined 
probabilistically by a random draw whose threshold 
value is based on the magnitude of disparity between 
players’ total adjusted utility figures. 

The umpire may elect to override the above 
computation method and be queried annually as to 
whether the war event is to take place. 


OVERRIDE (Y or N) 
Figure 3.8 Umpire's Probability of War Option 


The umpire may elect, through an option available 
in his main menu (and depicted in Figure 3.8), to let TEMPOA 


generate a uniformly distributed random variable (between 0 
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and 1) to determine whether the war event occurs. Or he 
may elect, through the same option, to nave TEMPOA generate 
and display the computed probability of war, and query the 
umpire annually to determine whether the event should take 
place. This override capability defaults to 'off', and 
TEMPOA will, unless otherwise directed, generate the war 
event independently by the algorithm detailed above. 

Once the war event occurs, the player with the larger net 


utility figure is declared the winner. 


C. ANNUAL PLANNING 
The following sections treat what nas been termed the 
player ‘decision cycle', which begins with the player code- 
word entry. The decision cycle concludes wnen a player 
elects the 'Quit' option from his main menu (Figure 3.9). 
Ll. Annual Forecast 
Following the entry of a player's codeword, ne is 
mpreovided the opportunity of obtaining a printout (if the 
umpire has previously indicated a orinter is attached) 
detailing the imminent year's weapon systems and budget 
Status. Such a printout would be useful if the player were 
acting as terminal operator for a team of game participants. 
The forecast has eight segments. The contents of 
each segment are only briefly described below. A more 
detailed discussion is provided later in this section. 
The first segment iS a list of ail weapon systems 


Currently in inventory. The second is a similar listing of 
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all systems available for purchase but currently not in 
mavyentory. Cumulative utility figures for each of the four 
main systems types are contained in segment three. New R & D 
opportunities, continuing R & D opportunities, and shelved 
R & D opportunities make up the next three segments. Segment 
seven displays the information gathered as a result of the 
previous year's intelligence expenditures. The final segment 
provides the working budget for the current year. 
2. Main Menu 

All expenditures made by a player are made through 
the main menu. This menu supplies a common return point 
following any procurement or investment decision, and offers 


the sole cycle escape avenue through its ‘quit' option. 


MAIN MENU 
ia ea lelwuS OF FORCES CURRENTLY IN INVENTORY 
2...-STATUS OF FORCES AVAILABLE BUT NOT IN INVENTORY 
3...CURRENT RESEARCH AND DEVELOPMENT CANDIDATES 
4,...INTELLIGENCE/COUNTERINTELLIGENCE INFORMATION 
>...-CURRENT BUDGETARY/SYSTEMS PURCHASE STATUS 
6...-QUIT (MAKE NO FURTHER BUDGET DECISIONS THIS YEAR) 


Enter the desired option number: 


Figure 3.9 Players Main Game Menu 


The first four options listed channel the player to 
tnose areas where decisions are made affecting his current 
budget. The fifth option allows the player to view a summary 
of his budget status, reflecting the immediate impact of all 
procurement and expenditure decisions. The final option listed 


Signals the completicn of the decision cycle. 
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3. Forces Cimrencly in Inventory 


Figure 3.10 depicts the display when the first option 
in the main menu is selected. Those systems with positive 
inventories are listed. Additionally, the following parameters 
are displayed; system name, system type, inventory quantity, 
unit acquisition and operating costs, utils per unit, annual 
purchase limit, and the total system utility value and oper- 


meting costs. 


FORCES CURRENTLY [IN INVENTCRY 


AQ. OP PiJRCH Thee 

SYSTEM(TYPE) INVENTCRY COST COST UTILS LIMIT  3PCCST UTILS 

QAL(CA) ZO $32 $1c0 40 25 $2009 1290 

O33(04) 30 $15 369 +0 40 $1300 12609 

DA4( 0A) 20 540 $120 20 19 $2400 160 

De2¢ Ce) 5 $15 $30 20 45 $150 100 
YOU CURRENTLY HAVE $1900 LEFT TO SPEAD FOR THE FISCAL YEAR. 
<FRESS P TO PURCKASE, S TO SCRAP UNITS CR RETUAN Th EX{T> 


Peoune s.10 Systems Currently in Inventory Tableau 


The player is given three options (from Figure 3.10): 
purchase new units; scrap existing units; or quit and return 


to the main menu. If the player elects to either purchase or 





scrap units, he is requested to specify which of the systems 
from the displayed listing he wishes to expand upon (or trim). 
Once the player has responded, the listing is replaced by a 
System Information tableau depicted by the upper portion of 
Pagure 3.11. Following TEMPOA's prompting, the player enters 
the number of units he wishes to buy or scrap. The display 
of Figure 3.11 is now completed, and an Updated System Infor- 
mation tableau augments the previous System Information 
tableau. All acquisition and operating costs, as well as 
annual budget data, are immediately updated to reflect the 


player's procurement decision. In order to understand the 


SYSTEM INFORMATION: 


AQ OP 
Sys eM UTYPS) INVENTQ&Y COST COSh™ UTILS 


RCH eae 
Malet BPEOST “VITLS 
MA1 (04) 29 $30 $icO0 60 22 


$200C L200 


UPDATED SYSTEM INFGRMAT ION: 


AQ OP PURCH TQ7 & 
S¥STEMA TYPE) INVENT QRY COST GG Steer LS eS as ef SPGSST BUGS 
OAL(0A) 20 $30 $1CO 60 2S s2c00 1800 


00 YOU WANT 70 WAKE ANOTHER CHANGE? 
<ENTER Y OR MD 


Figure 3.11 Systems Purchase and Update Tableau 
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updating impact of a decision to purchase or scrap, it is 
necessary to take a closer look at how TEMPOA performs the 
arithmetic. 

Associated with each system are two special variables, 
one called the system inventory and the other called the 
'threshold' number. The system inventory always reflects the 
number of units of that weapon svstem in inventory at any 
given moment. The threshold number is simply the number of 
units in inventory with which the player began the year. 

The second variable represents those units for which an 
acquisition expense has already been incurred. While the 
inventory figure may fluctuate throughout the decision 
cycle, the threshold value will remain fixed, and will pro- 
vide TEMPOA the necessary flexibility to allow the player 
to reverse his decision with impunity throughout the cycle. 

Wnen a player makes a purchase, his inventory is 
immediately increased, and his system operating cost is 
simply the product of the inventory and the unit operating 
cost value. When a player scraps units of a system, his 
inventory and system operating costs are immediately decre- 
mented. During a purchase, however, he is assessed an acqui- 
Sition cost for only those units which are in excess of his 
threshold figure. And during scrapping, he is 'rebated' an 
amount equivalent to the acquisition costs only for those 


scrapped systems which are in excess of the threshold figure. 
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As an example of the numerical role played by tne 
threshold figure, consider the following. A player's 
macesho.d is thirty units and his inventory is forty units 
(a point in the cycle when the player has already purchased 
ten units since the cycle began). He decides now to scrap 
fifteen units. His updated inventory will be twentv-five 
Mares. His threshold is still thirty units. His updated 
operating costs reflect his current inventory of twenty-five 
units. His budget funds remaining has increased by an 
amount equal to the acquisition price of ten units (not 
fifteen). 

TEMPOA will provide the alert depicted in Figure 
3.12 if the player attempts to spend more than he has avail- 
able. The alert acts merely as a warning, and will not 
prevent the determined vlayer from overspending his budget. 
Ti the player continues, and amasses a deficit, an amount 
equal to twice the deficit figure is automatically deducted 
at the end of the decision cycle from the subsequent year's 
budget. 

During any portion of the decision cycle, an attempt 
to procure more units than the purchase rate allows will 
Prompt an acditicnal warning. TEMPOA then provides the 
player with the maximum number available for purchase, and 


Mel query the player as to his intentions. 
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WARNING 


You have not enough funds remaining in the year to 
make the desired acquisition 


Budget age... ee wanna << $9400 

Amount spent previously for acquisitions......$0 
AmMountesopent for intelligence. ......s1sccccees $100 
PaeuUiMcesPent £On Rvand D......... 0» betwets- <4 4c.s 26s UO 
Amount to operate all current inventories..... 57200 
PMOUNtc CEMAINING.....<.- SOS ee ee ee ee eee S700 


Acquisition and operating costs 
Oras VoEemectanetry se beeted ....4640. 6. ..2.+..91860 


Debevei eeee ean ee SC) 


If you continue with this purchase and do not scrap 
any other systems (to lower your operating costs) 
you will have an annual deficit. Twice this amount 
will then be deducted from next year's budget. 
Do you wish to continue with this acquisition? 

<1 Oe iN 


Figure 3.12 Budget Overrun Warning Message 


4. Forces Available But Not in Inventory 


All display formats and purchase procedures in this 
section are identical with the previous section. Systems 
itemized in tne manner depicted by Figure 3.10 are those 
whose inventories are zero. Increasing the inventory of any 
system will immediately cause the system to be transferred 
Beem the ‘Not in Inventory’ category te the 'Forces Currently 
in Inventory' category. Subsequent perusal of this system 
requires a return to the main menu, and selection of the 
"Forces Currently in Inventory' option. 

In the event the forces listing is greater than four 


systems in length, TEMPOA provides for a series of pages to 


2 





be created, each of which expresses system information in 
the standard format. The paging option is implemented 
automatically when the need arises, and each page provides 
the player with the purchase option, and the advance page 
and quit options. This paging procedure is also implemented 
in the ‘Forces Currently in Inventory segment. 


5. Research and Development Candidates 


RESEARCH AND DEVELOPMENT PROJECT STATUS 
oe NEW OL POR EUN dls S 
B...-CONTINUING OPPORTUNITIES 


G.. oupavED OPPORTUNITIES 
QO. ° SOUL. 


Figure 3.13 Research and Development Menu 


All systems about which players make decisions can be 
categorized into three mutually exclusive classes; those 
systems in inventory, those systems available but not in 
inventory, and those systems in some stage of research and 
development. This latter class of systems may be browsed and 
manipulated through the R & D in the players' main menu. 
mee selected, an R & D menu, as depicted in Figure 3.13, 
appears on the monitor. 

There are three possible stages in the R & D process. 
First is the New Opportunity stage. All new R & D opportuni- 
ties make their initial appearance under this heading, and may 
be viewed by selecting the first of the options depicted in 
peoguce 3.13. Tne selection causes the display to be replaced 
by the tableau depicted in Figure 3.14. 
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NEw R & D OPPORTUNITIES 


VRS Moers OLA YRS) yee Ree ees 3.@4C0 3p DIEC 
WANE(TYFE) CCMPLETEC woo COST “Gea CCST Gust. COST UTILS ATs 
D8&5(08) QO e $400) 9335) s€é00 $4) $190 30 25 
C£4(CA) 0 & $250 $4)9 $2390 530 $6C 09 nae 
O84(08) C 2 $425 $42) $400 365 $75 22) ls 
O43(C0A) J il $900 $635 $700 $100 $1260 eeu 20 
* NOTE: ALL NEW REN PBL JECTS kwILL BE * 
* SHELVED AT YEAREND UNLESS YOU * 
= NJOw CESTGNATE 
YCU RAVE $150C REMAINING IN THIS YEAR *S BUDGET. 
ENTER THE NOME CF THE SYSTEM wHCS? REC YOU wISH TO d3SGIhs: 
Sy oe Ut = 1Gs2Ci tT? 


Figure 3.14 New RED Opportunities Tableau 


The information displayed in Figure 3.14 is similar 
to that displayed in the purchase tableaus with minor excep- 
tions. ‘Yrs R & D Completed' is self-explanatory, and will 
meve a Value of zero for all new opportunities. ‘Total Yrs 
Req'd' refers to the number of years of R & D required to make 
the system available for ourchase. This figure, when compared 
to the ‘Yrs Completed' value, gives a progress report on the 
system's R & D status. The maximum number of required R & D 


years for any TEMPOA weapon system is three. The next several 
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entries in the tableau reflect the expected cost of pursuing 
R & D on the described svstem. 

When the player elects to begin or continue R & Don 
mespecific system (the option depicted at the bottom of 
Figure 3.14), the incurred expense’ is equal to the figure 
indicated under the appropriate year column. This cost is 
immediately deducted from the annual budget. The remaining 
year cost columns in the R & D menu are forecasts only, and 
the figures under those headings may vary as a result of an 
inflation simulation. At the end of each year, a uniformly 
distributed random variable is drawn from the discrete set 
{0, 50, 100, 150, 200}, and is added to the subsequent year's 
expected R & D costs. As a result, the expense of contin- 
uing a system's development may become more expensive than 
anticipated, and players may decide to shelve the project 
temporarily. 

All new opportunity projects about which no player 
decisions are made will be put automatically into the shelved 
opportunity class by TEMPOA at the end of the decision cycle. 
TEMPOA makes no automatic budget assessments for either new 
or shelved R & D opportunities. 

The Continued Opportunity listing, also displayed 
through the R & D menu, itemizes all systems fundec for R&D. 
Tne format 1S similar to that depicted in Figure 3.14. The 
‘Yrs R&D Completed' value, however, will be non-zero in 


tnose instances where R & D was previously funded. 
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The current budget figure always reflects the expense 
@eoursuing those R & D projects itemized under ‘Continuing 
Opportunities’. When a new opportunity is funded, the 
system's status changes, and the budget 1s immediately 
assessed the appropriate year's R & D cost. Similarly, when 
a previously shelved opportunity is continued, its status 
changes and the assessment is again performed (and a possible 
penalty, described later, is charged). 

From the Continuing Opportunities display, a player 
may elect to shelve one of the listed systems. Shelving a 
system will cause an immediate reinstatement of budget funds 
to occur, the amount equivalent to the cost of R & D pursuit 
for that system. At cycle end, all systems in tne Continuing 
Opportunities status are assumed to remain in that status for 


the beginning of the subsequent year. 


Poli, FPRICSS FOR RESUMING PREVIOUSLY SHEEVED 
R&D PROJECTS 


System (Type) Penalty 
OA2 (OA) $300 
DB 3 (DB) S250 
OB4 (OB) S25 
OA3 (OA) $300 


You have $1600 remaining in this year's budget. 


Enter the name of any system whose R&D you wish 
Eo. fe sSume: 


“hy OC madi” “tO. Oul1 c> 


Figure 3.15 R&D Penalty Tableau 
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Shelved Opportunities, the last stage to which an 
Res D project may belong, is the set of all systems whose 
project development is temporarily held in abeyance. The 
display format for these systems is similar to that of tne 
other two stages. Once shelved, projects are indefinitely 
held in this status, carried over from one year to the 
next automatically by TEMPOA. If the player decides to 
resume development, ne is assessed the appropriate year's 
R & D cost (previously explained), in addition to being 
assessed a resumption penalty cost. This cost reflects the 
expense of reactivating old facilities and tne general 
regrouping of effort needed to pursue previously discon- 
Mmenuead projects. Specifically, it is equal to $300, or the 
cost of the most recent year of R & D completed on the 
shelved proiect, whichever is less. A listing of penalties 
for all shelved systems, as depicted in Figure 3.15, is 
accessed through the third option in the R & D menu. 

A budget overrun warning, Similar to the purchase 
overrun warning described earlier, is utilized in the R & D 
segment, and cautions the player when excessive R & D invest- 
ments are attempted. 

6. Intelligence/Counterintelligence Information 

Figure 3.16 displays the intelligence/counter- 
intelligence menu available to the player through his main 
game menu. Tne ootions available are three; receive previ- 
ously purchased information, fund the purchase of future 
information, and cancel the funding allotted earlier in th 


cycle. 
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Somer INFEDLIGENCE OPTION: 


A....Receive Previously Purchased Intelligence 
Information 

B....Purchase Intelligence/Counterintelligence 
Information 


C....Cancel All Intelligence/Counterintelligence 
Requests for the Current Year 
O02... OULE 


Figure 3.16 Intelligence/Counterinteiligence Menu 


Four distinct types of intelligence information may 
be procured. The first two concern enemy offensive and 
defensive force strengths, respectively. The latter two 
are information regarding enemy offensive and defensive R&D 
Ieoyects. 

Dwmceeccclngqutne Lirst Optron in Figure 3.16, the 
player may review information procured by intelligence 
funding the previous year. In game year one, as in any year 
not preceded by an intelligence procurement, no intelligence 
information can be reported, and an appropriate comment to 
that effect will be indicated. Figure 3.17 depicts typical 
results of electing the first option from the Intelligence/ 
Counterintelligence menu (Figure 3.16). 

Tne first two TEMPOA responses in Figure 3.17 will be 
one of three possibilities: If no money was voreviouslv 
expended for the intelligence category listed, the cue 'NO 


INFORMATION PROCURED' will be displayed. If the intelligence 
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CURRENT INTELLIGENCE REPORTS: 


ENEMY OFFENSIVE FORCES INFORMATION : 
NO INFORMATION PROCURED 


ENEMY DEFENSIVE FORCES INFORMATION: 
Total enemy defensive utils are estimated 
to be between 2736 and 3029 


ENEMY OFFENSIVE R&D INFORMATION: 
CIA unable to breach enemy counterintelligence 
barrier 


ENEMY DEFENSIVE R&D INFORMATION: 
Reports indicate enemy currently funding 3 
defensive R&D projects 


Figure 3.17 Intelligence Report 


category was funded, but the enemy provided for counter- 
intelligence funding, then TEMPOA will respond with ‘CIA 
unable to breach enemy counterintelligence barrier’. If 
funding was provided and the enemy failed to provide for 
counterintelligence, then TEMPOA responds with upper and 
lower bounding estimates of the enemy's total utility for 
the appropriate system category. Each bound is arrived at 
separately through distinct uniform random variable draws 
from the interval [0, 200}. These two variables are then 
added and subtracted, resvectively, from the actual total 
enemy utility figure to generate the displayed upper and 
lower bounds. 

The last two TEMPOA responses in Figure 3.17 will 
nave the same first two possibilities as explained previ- 


ously. If funding was provided and the enemy has 





established no counterintelligence, however, TEMPOA will 
respond with the number of currently funded enemy R & D 


projects of the appropriate system category. 


PURCHASE OPTIONS 


A...Current Force Strenath of Enemy Offensive Forces 

B...Current Force Strength of Enemy Defensive Forces 

C...Current Offensive Enemy R&D Projects 

D...Current Defensive Enemy R&D Projects 

E...Supply Counterintelligence Regarding Own Offensive 
Forces 

F...Supply Ccunterintelligence Regarding Own Defensive 
Forces 

G...Supply Counterintelligence Regarding Own vffensive 
R&D 

H...Supply Counterintelligence Regarding Own Defensive 
R&D 

Ore. OULt 


Intelligence Cost per Item (A thru D): $100 
Counterintelligence Cost per Item (E thru H): $200 


Pier OPTION ie Dre kr: 


Figure 3.18 Intelligence/Counterintelligence Purcnase Menu 


Option two from the R & D menu (Figure 3.16) presents 
the display depicted in Figure 3.18, and aliows the player 
to procure intelligence information or to provide for the 
supply of counterintelligence. The cost of intelligence pro- 
curement is $100. The cost of providing counterintelligence 
is $200. Counterintelligence is used to deny the enemy infor- 
mation whose acquisition he is funding. All procurements are 
immediately deducted from the annual budget figure. 

The final option allows the player to reverse previous 
intelligence/counterintelligence decisions, and cancel ail 


Sucn funcing for the cycle. 
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i =e DuUagGeE/ SYSTEMS Purchase Status 


BUDGET INFORMATION 


Year:.3 Total annual allowance: $9300 
Amount spent in AcquiSitioOns.....sseeeseesseces $850 
Amount spent on intelligence.......-.seessceees $600 
BrmemmMiesoent, ON RED. . 2. 2... ss cee s cee sneer esssses $2000 
Operating costs by system (those in inventory): 

System (Type) Quantity Total Operating Costs 

OA1 (OA) 40 oi200 
DB1 (DB) 1090 $2000 
OB3 (OB) 100 $1500 


Expected defense budget for next year: $8700 
Total monies remaining: $1150 


<Press RETURN to Return to Main Menu> 
Figure 3.19 Budget/Systems Information 


A current summary, depicted in Figure 3.19, is avail- 
able to the player at any time during his decision cycle 
through an option in his main menu. The summary provides a 
documentation of monies allotted during the current cycle for 
system acquisitions, intelligence and counterintelligence 
procurement, and R & D funding. Additionally, the summary 
breaks cown all systems currently in inventory by name and 
system type, and provides individual operating costs. The 
Summary concludes with the amount of budget funds remaining, 


and an estimate of the following year's budget allocation. 


Dy ANNUAL OUTPUT 
Immediateiy following the conclusion of a player's decision 
cycle he is given the option (if the umpire has previously 
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indicated a printer has been attached) of obtaining an exhaus- 
tive printed summary detailing his budget decisions and weapon 
systems status for the year just completed. Once elected, 

the printing taxes two to three minutes, and cannot be 
interrupted. 

The printout is divided into eight segments. The first 
segment itemizes all weapon systems currently in inventory, 
and provides a breakdown of each system into its component 
parameters. The second segment provides the same breakdown 
for all weapon systems available but not in inventory. Total 
cumulative utility figures for each of the four main system 
types are provided by segment three. The next segment item- 
izes all continuing R & D projects, providing the same param- 
eter details as contained in the first segment. Segment five 
treats all shelved R & D projects. As mentioned earlier, 
this category includes any unacted upon R & D opportunities 
which were introduced to the player as new during the previous 
cycle. The sixtn segment deals with a budget summary and 
forecast for the upcoming year. The information provided is 
Similar to that available to the player through his Budget/ 
System Status option in nis main menu. The last two segments 
are forecasts of systems which will appear as opportunities 
at the start of the following decision year. Segment seven 
forecasts systems which the umpire has made available in 
inventory without requiring player R & D effort. Segment eight 
forecasts new R & D projects to be introduced to the game the 


following year. 
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E. WINNING 


AS een Un Or Aen Y OF 
OPERATIONAL FORCES UTILITY 
FOUNTE.. « 


Chris 


7. oboe DECLARED WENNER 
FOR GAME YEAR 5. 


Figure 3.20 Winner Declaration 


TEMPOA declares a win at the end of the year based on the 
peeayer'’s net utility figures. The exact algorithm has been 
explained in the Objective section. Figure 3.20 characterizes 
the display presented by TEMPOA when a winner is declared. 

A tie is called in the event the players have identical net 


Mmerbity figures. 


F. SAVING THE GAME 

At the end of each player's turn, the umpire is presented 
with a menu selection which provides him the option of termi- 
nating the game. Specifically, he may decide to end tne game 
and save the game data, or he may continue with the game. If 
the umpire elects to conclude the game anc preserve the game 
data, then TEMPOA creates a data file on the external diskette 
and writes all systems and budget information for each player 
onto the file. When all disk drive activity has stopped, the 
play is concluded and the Apple may be turned off. When next 


the TEMPOA program is initialized, the umpire should indicate 
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that the game is a resumption (see Preliminaries section for 
appropriate cue information). In the event the game 1S again 
shelved, the old data file on the external diskette is merely 
updated. The play, then, may be interrupted frequently without 
loss of data storage space due to a need to save the most 
current data base. In addition, several separate games may 

be played in the interval between the saving of a game and its 
resumption, as long as no attempt is made to save one of the 


intervening games. 


G. PENALTIES 

Three penalties may be assessed a player during the game. 
The cost of losing a war is $1000, and is immediately deducted 
from tne following year's budget. A second penalty is the 
extra expense incurred by budget overruns. At the end of each 
year, twice the amount of any budget overrun is deducted from 
tne guilty player's upcoming year's budget. Note that wnile 
a player is penalized for a budget overrun, he is not given 
credit for budget surpluses. As in many military procurement 
scenarios, what isn't used is lost. The final way a player 
may be penalized is by resuming a snelved R & D project. fI£ 
the snelved system was actively pursued at some earlier time, 
then an added expense is incurred for project resumption. 
The cost is equal to $300, or the cost of the most recent year 


oz R & D completed on the shelved »roject, whichever is less. 
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It bears mention that, in light of these penalties, a 
player's actual annual budget may differ drastically from 
the umpire's elected figure. A budget overrun of $500 coupled 
with the loss of a war will cut a player's expected figure 
by $2000. In addition, the random draw made to adjust the 
budget figure for inflation may slash the budget by another 
$1000. The resulting budget figure may surprise the unalerted 
player. Both players are strongly advised to need TEMPOA- 
generated budget overrun alerts, and be wary of overextending 


operating commitments into subsequent years. 


H. STRATEGY 

The goal of the game is to gain the upper hand in terms 
of offensive utility points, while maintaining enough defen- 
Sive utility points to offset the opponent's offensive capa- 
bility. Players wil] not achieve this end simply by funneling 
monies blindly into offensive capabilities. 

If the game duration is predetermined and announced by 
the umpire, it may be possible to successfully model TEMPOA 
as a complicated dynamic optimization problem. A variable, 
undetermined game duration, however, frustrates this approach, 
and the player is resigned to work out his 'best' strategy 
with a more primitive scneme. 

There are three areas in which a player mignt sink funds; 
intelligence, R & D, and system procurement. 

The gathering of intelligence information is important 
For providing guidance for which type of system to allot R&D 
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Micdinge "And the cost Of intelligence procurement is rela- 
tively inexpensive when compared to the pursuit of an R&D 
project or the augmentation of an existing weapon system. 
Intelligence is as much a priority to a player's enemy as 

it is to the player nimself, hence the need to fund 
counterintelligence activities. A judicious use of counter- 
intelligence will effectively mask critical information 
concerning systems where a player is particularly weak, or 
where a player is expanding in preparation for the great 
ecOuUp' - 

Most of the default R & D projects require three years 
of funding before tney are available for purchase. A three 
year delay is a significant interval, and players should not 
delay in initiating R & D projects which will bear no fruit 
for several decision cycles. It is easy to become misled by 
visions of a late return for early efforts. To delay the 
start of an attractive R & D project in favor of a lesser 
capable but more immediate investment may be taking risks 
meace the player can ill afford. Frivolous shelving is 
costiy. The penalty price associated with resuming shelved 
R & D projects (in addition to the delay in getting them ‘on 
the street') may exceed the expense of the budget overrun 
caused by continuing tne project. The costs and penalties for 
Shelving are not always transparent, and the decision to 


shelve warrants careful scrutiny. 
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Scrapping systems currently in inventory should be treated 
in the same way as shelving R & D projects. For each unit 
scrapped in haste, though the annual operating expense has 
been reduced, the equivalent acquisition cost has been wasted. 
Scrapping 1S an appropriate measure only when presented with 
an attractive, cost-effective weapon system whose operation 
under the budget constraint necessitates the replacement of 
less efficient systems. Systems of the same type may be 
compared in a cost-effectiveness mini-study, where expendi- 
tures are amortized over some oredetermined interval. A 
Similar approach has been successfully used to deal with R&D 
systems. 

The brunt of the emphasis in recent TEMPO versions has been 
on team interaction and the analysis accompanying the decision 
cycle. In the current version, the duration of the decision 
cycle is left to the umpire. However, the more time allowed 
the players during their cycles, the more complex and competi- 


tive their analysis is expected to be. 


47 





IV. CONSTRAINTS AND LATITUDES 


This chapter is divided into sections. The first section 
treats player constraints and variable limits, while the second 
deals with those areas of TEMPOA where random numbers are 


generated and used. 


foe CONSTRAINTS 

Game duration is limited to twenty years. This constraint, 
elected as a reasonable upper bound for the game duration, was 
embedded in TEMPOA to allow the umpire the flexibility to alter 
a set of default budget figures. If a duration greater than 
twenty years 1s desired, it is only necessary to alter the 
length and initialize the values of the integer-valued budget 
vectors REDBUDGET and BLUBUDGET, declared in the main program. 

The maximum number of game weapon systems is thirty. 
Seventeen are default systems, and may be altered beyond 
recognition by the umpire. Another thirteen systems may be 
created by the umpire to augment the default systems. Again, 
the bound at thirty was elected as a reasonable limit to the 
number of system alternatives a player would be able to deal 
with. An incremental increase in the number of systems avail- 
able increases the game complexity exponentially. 

Ali arithmetic operations performed by TEMPOA use 

integer-valued variables. And in the main, integer varibles 


nave been used more frequently than long integers. The 
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probability of war computation, while appearing to use and 
display real-valued variables, actually uses long integers and 
an artificial decimal display. As a result of the prevalence 
of integer variables, the maximum value TEMPOA arithmetic can 
be expected to deal with is 32767. This is a constraint of 
the Apple itself. Since the greatest expenditures will not 
often exceed the annual budget, care need only be taken to 
ensure the umpire does not elect to use budget values in 
excess of 32767 (budget default values are approximately 9000). 
This will artificially bound expenditures. And observing that 
unit utility values are roughly comparable to unit operating 
costs, bounding the annual budget figures effectively caps 
the total systems utility values as well. Annual expenditures 
and gross utility values are the largest variables dealt with 
in TEMPOA. Ensuring their bounds are within Apple integer 
constraints is sufficient to safeguard all other variables. 
Aside from the mentioned constraints and the limitations 
of the display presented on the monitor, TEMPOA has been 
Constructed to be flexible and forgiving. Numerical entries 
not within the allowable range of the assignment will prompt 


a TEMPOA cue highlighting the error and cauticning the player. 


aoe LATITUDES 
Random numbers are drawn and used in four instances during 
tne game olay. The Apple System Library unit Applestuff pro- 


vides the source of the random numbers. All begin uniformly 
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distributed over the interval [90,1]. A linear transformation 
is then performed on each draw to provide the appropriate 
variable range required. The Randomize procedure, also pro- 
vided by the Applestuff unit, is used to avoid the repetition 
of a draw sequence in subsequent games. 

Draws are made in the following circumstances; to provide 
upper and lower bounds to the enemy utility figure reported to 
the player as the result of an unblocked intelligence request; 
to determine the annual effect of inflation on the umpire- 
selected budget value; to determine the effect of inflation 
on the imminent year's R & D cost for any continuing R & D 
opportunity; to determine, if umpire-elected, whether a war 
event is to take place. A more vrecise description of the 
algorithms used in the above circumstances is available in the 


appropriate sections. 





V. RECOMMENDATIONS 


TEMPOA is constructed to mime the realities of tne defense 
procurement and development process. To the extent in which 
jmemcalls short of this goal, room for program enhancement 
exists. 

A glaring artificiality is the encompassing in a single 
mane, called ‘util’, the full capability and military signifi- 
cance of an entire weapon system. Certainly this streamlines 
TEMPOA. And it frees the player to concentrate his efforts 
on budget allocation rather than on pure systems anaiysis 
concerns. Nontheless, injecting a more realistic systems 
assessment would enhance TEMPOA and add a new level of sophis- 
tication to the play. 

An area not directly addressed in TEMPOA is the cumbersome 
artificiality of the decision cycle scheme. Forcing one player 
to ‘wait his turn' while the other proceeds through the decision 
cycle is not merely unrealistic. Boredom is fostered in the 
nonparticipating player. A more desirable scheme would be a 
time-sharing arrangement, where both players occupy separate 
terminals, linked by modem, and conduct their decision cycles 
Simultaneously. Such an arrangement, while posing no great 
@eemntcal difficulties, requires the availability of multiple 
compatible terminals. In addition, the need would arise for 
both players to complete their cycles at about the same time, 


to enable a timely transfer of player status information from 
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ome terminal to the other (in order to provide TEMPOA the 
necessary data to decide and declare a winner). 

An alternate method for dealing with the player cycle is 
to have duplicate game diskettes given to the players. Each 
could play simultaneously on separate non-linked terminals. 
Following each turn, a data file summarizing a player's 
decisions would be created on each game diskette. The umpire 
would then halt tne game and switch the players' diskettes. 
Each player could then retrieve the opponent's data file and 
determine a score. Diskettes would then be returned to the 
respective players to begin another game cycle. 

While this second method allows for simultaneous game 
play, it requires the additional manipulation of game diskettes. 
Also, the umpire would be required to monitor the cycle dura- 
tion and ensure the simultaneous termination of each player's 
game year. 

All of which highlights the desirability of an internal 
clock in tne Apple III. In the current TEMPOA simulation, an 
umpire takes the place of a clock, and may establish duration 
limits for player decision cycles. A clock would relieve the 
responsibility from the umpire, and would also provide a ready 
solution to the problem posed by the need for simultaneous 
cycle completion when using two linked terminals. 

The above summarizes the more glaring shortcomings of 
TEMPOA. Other such areas exist, and will become apparent 
whenever the plaver finds himself muttering in a frustrated 


cone of the artificiality of a TEMPOA-generated situation. 
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VI. MECHANICS 


This chapter discusses the required hardware upon which 
£0 play the TEMPOA program. In addition, the section on soft- 
ware dwells on the program makeup, TEMPOA file construction, 


and procedure segmentation. 


A. HARDWARE 

The program TEMPOA requires the use of one Apple III 128K 
microcomputer, a 120V/60Hz power source, and one external disk 
drive. While TEMPOA consists of three separate 5 1/4" floppy 
diskettes, the code required for running the program is 
contained only on the first two. 

The use of a printer is optional. However, in order to 
obtain an umpire's complete systems summary, an annual player's 
decision summary, or an annual status forecast, a proverly 
configured printer is essential. When attached, a compatible 
printer is linked through the Apple RS232 port. If an Apple 
Silentype printer is used, it must be attached to Printer 


port A. 


B. SOFTWARE 

TEMPOA, as mentioned above, is contained on three diskettes. 
TEMPOA DISK 1 and TEMPOA DISK 2 contain the program code files 
and are used to run the game. TEMPOA DISK 3 contains all pro- 
gram text files, and is available to provide the user with the 
Option of reconfiguring or editing the game. 
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ppecmmcaliy, SEMPOA DISK 1, which is inserted in the 
internal disk drive prior to turning the power on, contains 
the Apple system software necessarv to boot the TEMPOA pro- 
Seam. Additionally, it contains a data file in whicn player 
names and codewords will reside. Using the Apple System 
Library unit Chainstuff, the booted code file on TEMPOA DISK 
1 is linked to the main program on TEMPOA DISK 2, which 
should be inserted into the external disk drive. Other than 
the initial diskette insertions, no further file or diskette 
manipulations are required of the player during the remainder 
of the program. 

An understanding of the rationale behind the TEMPOA file 
configuration is necessary if the user anticipates altering 
or enhancing the program text. 

File arrangement was dictated by several Apple constaints. 
First, individual procedure size limits caused simple but 
lengthy texts to proiiferate into multiple smaller units. 
Hence the final program contains an inordinate number of 
nested procedures. A second consideration in program design 
was text file size. In order to amass the quantity of text 
embodied by TEMPOA, the program was divided into seven text 
file 'batches', plus the main driver text file. All files 
are then compiled sequentially using the Apple III Pascal 
@empiler ‘include’ option. 

A constraint affecting program execution was the limita- 


tion on the quantity of code that could be loaded at one time 
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into the main memory. In order to provide adequate space for 
pertinent sections of the program, large blocks of text were 
defined as 'segmented' procedures. These procedures, compiled 
before non-segmented procedures, are not automatically loaded 
into the main memory, and now remain resident in tne code 
files until called by TEMPOA. 

Sheer size of the TEMPOA code file (160 diskette blocks), 
suggested the use of a third disk drive in program construction 
and compilation. The requirement that certain system software 
files be resident in certain drives made TEMPOA file manip- 
ulation during construction cumbersome. While users are 
invited to modify and enhance the current version of TEMPOA, 
the use of a third drive is heartily recommended for the tasks 


of editing and compilation. 
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COMPUTER PROGRAM 


INT T MYSTHIEF 3 ° 
INTRINSIC CODE 173 

INTERFAIE 
geeo PPPLESTUFF s 


iThe ftollawina three eracediures mers created amd inetalled as an intrinsic 
Nik Into the syuerem library. Esch 12 called freajenrly by Lhe driver 
Penaram and hu ift.¢ sarellite sumrariness, ° 

PROCEDURE FUTIT (44 3: integers Phrase = strinads; 

PRUCEDURE CLEARSCREEN; 

PROREDURE HELP: 


TMPLEMENTOT ION 
PROCEDURE PUTIT: 
Places 34 a1lven strina af 3 aven <«creenm lacation.: 
Begin 
SUTIXYC wo 95 
nei Lalnt Phrase 2 
ends f pry. ts 


PRUCEDURE CLEARSCREEN: 
LErases entire screen, | 
ar 
control : integer; 
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control 3:3 23; 
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ands fclearscreen> 


PROCEDURE HELP; 
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ae 
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ends {hele > 
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PRUGRHM STARTUP: 


JSES APPLESTUFF, CHAINSTIIFF, MYSTIUEE; 
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Hbtains Player names. tickler ta ensure disk #2 15 In drive. 
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File of strings 
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PROCEDURE OISK2>; 

LTickler to ensure diek #2 1s im Derive #2? 

Yar 
fo : chars 

begin 
PutICC 19,18,° ENSURE TEMPN DISK 32 15 LORODEN INTO ORIVE #27' 
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PRICEDURE SCRIESLE; 
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tar 
Qi: chars 
begin 
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read dds 
1? (agds7'r’ os or (dde’y’ ) then 
begin 
SETCURLSE “RES” 13 
diske; 
2x1ti¢ STARTUP > 
end 
2ise SETCURLY “NRES’ 9 
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aie} 


eneckits 


onegin 
crlearscreensarawt scr awe 
setchaint ““TEHPD-temen’ )3 
eneckits 
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beain 
datafile. := camponent([1 33 
PUL Cdatafile? 
ends 
close ‘datatile,lack > 
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e S208 % 
PRIISREM TEMFI); 


USES BRPPLESTIUFF, CHMINSTUPF, MYSTHFF; 
LMaIn driver. ¢ 
Type 


Forecast. = packed record 
Name $ strings 
4PSVUalLL § IAT 2aeRn; 
arRatstarts : integers 
yrarRhat! s inteacer ; 
yeiRalcost : inteaer: 
ywrlks0cast. 3: integer; 
yeskalcost., : inteaers 
LNVENEAMS 3 LNT.caer; 
tval : integer; 
HUCOSt : Inteder; 
UPeost : inteser; 
WLI1S 2 inteaer; 
PUrLIMiIt = INtLeaer; 
UPeostTTL : integers; 
URLIsTTL 3 integer; 
delete : inteser; 
penalty integer ; 
tiny. tOuS LNt.2aer 5 
Status : integer; 
sort : <trine 

ands 


Systems = Packed srray [1..72Aa] 


Lemp = zacked recorna 


of forec get 5 
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LPeLr,Luarizant. : chars 
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2nd; 
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marron. 2 tkiars 


.SINCLUCE NP2: BATCH. rext? 
CSINCLUDE THESIS2e: BATCHIA. text> 
CSINCLUGE TRESIS2:BATCHIB. text> 
C{SINCLUGE NP2:BATCH2. text} 
CSIMNCLUDE THESIS2:8ATCHER. 2axt? 
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PROCEDURE MAINMENU (person : string): 

{The main menu. Provides 3 conrral calling eaint fram mnich al} 
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Infarmation obtalned. > 

var 
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begin 
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PRUCECURE PLAYERONE 3 / 
tallows annual oudget. decisions “ar slayer 1. lipdares 311 Perrinent 


Varladles for comeunrsrion of winner and usase in “oallomwine elas. 3 
begin 


ZLarCUuP (Pl sywere( 1]; 


yal 





uedate (Players(li] .redpudaetCyear) i5 
inalnmenu (Plavers{1]>; 
Print (Plsayers(1] > 

ends CP] ayuerone } 


PROCEDURE FPLAYERTNWO: 

(See Playeri routine. > 

begin 
Startup (pl awere(2) 75 
update (plsyers{2] blvuoudger(Cyesr) 3; 
mainmemy (player<s{2) 33 
Print CPlavers(2]) 

ends {Pl avertun> 


PROCEDURE SHMEEND: 
iClases Printers, 3 
besoin 
clearscreens 
1f NOT Cpreer = “3% then cloaset€sz,lock? 
ends; { gameend> 


doesn 
randomize. 
ise TCURL( ded 5 
it ded="“FES’ then gerall 
else 
beain 
Initializes 
mnor 1 sys s 
Une ire 
ends 
maintlag := ralse;5 
repeat 
wear := year + 15 
INLLS 5 
Playeroanes 
P}] ayerrio si 
yearend 
until maintlags 
Jameend 
2nd. {temea> 
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STHE FOLLUWING SEGMENTED PRNCEMIPE TS FAWeT| SO CNA TNCERTED IN THE MHIN 
PROGRAM HS SATCH 1 IISING THE COMPILER “INCLUICE’ OPTION, GUE TH FILE 
3ICE CONSTRAINTS. > 


SEGMENT PROCEDURE INITIGLICE: 

{Initializes 17 wearan suct.ems ucinas default. parameters. 
initializes budgets to default fisuress iniriglizes 
sear, exPenditure varrapbles and number af syvetieoms ? 


PROCEDURE INITOR: 

beain 
raili.name = “OAL sre(tl].ywrgquail := lirelt]. status 3:5 93 
rsCil].yurRaOstarts := Bsrael(lli.yrorRaD := 4; 
reCil.ywriFadcost := Bsrel]].42Rafecost := A: 
rsCl)].wesRaOcost := BYirslll. inventory := 443 
esCij.AQeast 3= TAsrs(t)].0Pener := SA; 
esCil.utils :3 2VsrslCil.eurlimin 3:= 253 
reCijJ.umitbuy := Bsrelij).corr s= “NQ%; 
rsCii.delere := Birslll. penalty := OG; 
esC1].0Pcoet TTL := (ratt).OPeosr et relLl]. inventors); 
roeCil.eutirlsTThL := CrelCii.urils 3e¢rsl1]. invenrory 3; 
rsCel.name := “QA? sref2) ue aguarl] := 43ref2]. status := 15 
rsC2l.yurRsUstarrte := lLire(2l.yratPsl s= 43 
esC2).yweiRatlcost := 46sr<[2). ur e9a0ensr. = SAK; 
rs€2).ursRaOcost := 740srs(2]. inventory := 4; 
rsC2)].Alicost := SAASrSf21.9Peast 2= 175: 
esC2J.utils := 286srs(2).epurlimit := 153 
rsC2l.unitduy := Bsrsl2].<cort 2:2 “OIA; 
rsC2l).delere 3:3 Qirs(2].Peenalty := 0; 
rsC2).0PeosetTlh := (r4f2). OPensz e¢ re(2). inventory); 
reC2).utrlsTThL := (rsl2).urils 4¢rs(2). invenrory); 
raCSl.name := ‘OAS’ sre(3). vravarl := SirslS)].status := 13 
rsCsl.yrPaderarts := Jirs(sl]. yrotRal 3: = 45 
reaCSlowiksOcost := SH@ire(S].ur2RsOeost := 1NHH;5 
esCsl.yursRaQcost := $80srs(Sl. inventors 3:= 45 
es(3].RQcost, = 2aRsre(3].0Pcrast := 1QG3 
esClj.utils := 254srs(Sl.aurlimin := 153 
rsCS).uninbuy 3:= YsrelS).zorr 3s “90°; 
resCsl.delete := Jirs(Sl.penalty := 43 
esC3].0PeosttTlh := (realS].0Peosn e rs(3). invenr.cry 5 
esCSl.ue1istTl 3= Crs(Sl.urilsi esl). inventory) 

zs {rAYLO3s 


PROCEDURE INITSET1°&; 
3esg1n 

reC3]oname := “NBL srefel].yrqar) := laresl4].aratus := 45 
esCsl.urfatstarts := garsidl].yrnekal 3 43 
ro(Cs].urtRhsO0cenet := Asrel4)] yr cPalinner, ss AG 
esC+l].u9rcRaGicast := Gseralsl]. inventors := 243 
PSsts].AQcost 3:2 PAsr<s([4].9Peacet 2= 150; 
reC4ol.utils := 1L1eGsrsl4].eurlimin 3s= 155 
esCSjounitbue := 4sre(Sjicore ss “ORS: 
rsC4+)].delere := Qire(4]. penalty := 9; 
reC3).0PcosetTtl := ‘re(4). OPeoer. + rs(4]. inventors )5 
rsC3l.urilsT7Th := ¢rs{4].ur11$ 4 rs([4]. inventors); 
rsCSl.name := “URtmod’ ses(S].yravar] s= Sire(S]eingtus := 13 
es(Sl.9re8sOstarr.s := 23rs(S].ernrhsO := 4; 
reCSl.yuritPsGcoet := 1oAsre(Sl].ureRsOene:. := 43 


62 





retSl.ercRaOcost := bsre(Slo inventory := 4: 
reCSl].Hlcast := 34sre(5].0Peoer. s= 1285 

rs{Sl.eutils := 144sre6(Sl].purlimit s= 153 
reCSleunitbuy 32 wsre(S).sore. s= “0B: 

rs(Sl.delere := GirslSl]. penalty := 45 
rs(€5).0PeoseltTl := (es{5).0Peo|et. eC rel5], inventory); 
rs(Sl.urilsTTL 33 (rslSl].urils 4 re(S]. inventors 3; 
rsCSl].name := “NR2’srslB).yravail 3:2 2sre(Sl.etatus := 15 
eeCSl].9rRs0starts := tarslSl.yratfhst 3 = A 
re(6)].ariRalcost 3:= SH@sre(5).4rePhsOcost 3:= A 
esC6l].yrsRaOcose. := 4ire(Sl.inventory 3:= 43 
rsC6)].eQcast := 7Ssre(6)].0Pcoer. := 355 

rs(Sl.utils 3:= 49srs(6l.eurlimit 3:2 35% 
esCSl].unitbuy := O@srs(Sl.sarr s= “087; 

rs(8)].delere := 4irs(Sl.eenalty := B35 
es(6)].0PcocenTTlL := (r<(6]. OPenst 4 rs(S]. inventory); 
rs{Sl.utilsTTlL := Cre(6).urils rse(8). inventory) 


2rd 3 finrtseTian> 
PROCEDURE INITSET2OR; 
pean 


r3CV’l.nsme 3:2 ‘NBS’ sre(P J. yravarl 32 4sref7)].atatus 3:= 13 
reC7J].yrRaCstarts 3:= Zirsl7)].yrotRsD s= 4; 
esCPl].erlRatcost := SQWsrs(7].2rcRaOcast 3:= 3005 
reC7l.yesRaOcost := Bsrsl71]. inventory 3:= 33 
raCVlAWcosct := 140sr<l(7].0Prost += SA; 
esCrjeurile 3:2 12S5srsCrl.purlimit 3= 153 
meC7J.unitbuy := a@srelPl.cerr 3:= “°9B°S 
esC7l].deleve := BirslFl].penalty := 3; 
esC7].0Pcostutilh s= (rsl7).0Pcner rel7]. inventory); 
esCr],utilsTTL := (rs€7].utiis #¢re(7]). inventory); 
rsCSl].ename := “OBRmon’ sre(S)] .yraqvarl s= SirelS)]. status 3:2 13 
esCol.yrRaOstarrs := S5rse(3B)].uretPs0 32 4; 
reeC3)].'srlRaQeast. := S4uysre( 3). ar28a0coer 3s= 5 
esCS).ywrckaOcns. := Brrel(Sl. inventory := 3 
rsCSl].eiicost = 8Asrs(S)].9Pener s= 753 
rsC@l.utile 2:3 26Hsrs(S)].purlimit s= 1535 
esCsl.unitbuy 2:3 4seslS8l.sore ss “CIR: 
r3aCo].delere 3:2 Asre(B)]. penalty := 4; 
reC3].0PenstTTh := (rs). fiPemert. 4Cre(8). trvuemtory 33 
esCSl.utilsTTL := Cre(S8).unils <Cr)e03). inventory; 
eeC3l.name := ‘NBS’ seaCS).uravail := Sire(S).statnus := 13 
esC3)].urRaOerarts s= Srrel(Sl.erntesd := 4; 
reCSl.yuriFksttcost. := SH@iral9)]. erehaNeact := Sau; 
rsCSl].y9rsRaicosn := Bsre(39]. inventory := 3; 
r3C3)].Ricost := 755r2039).0Peost := 23; 
rsCSl.utils s= PSsre(S).eurlimit 32 245 
rsCSl.unitbuy := gsr«<(Sl).corr. s= “98%; 
PsUS].delere := Bsrsl3l].eenalty := A; 
m3sCSl].uPcoser TTL s= ¢re(S). OReast. re f{S)]. inuentare); 
eeCSl]outilsT7blL s= erslS).unils ers lS). inventory » 
ands finmitSeT2ons 


PROCEDURE I[NITDA; 


PROCEDURE INITOS@UXs 
cesin 
reCidj. name := “ORL irsllA).wravarl := LireliGl. status := a 
est idl. yresGstarts := Birel1BloernfRal ss WG 
reCl@l.ywrifalcast s= 4sreliSl.orckstcost := 83 


+s 
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rs(igl wrSRaGcost 3:= Ysre(14)]. inventory 3s= 2435 

rsCigl.Avcost 3s= 1hMsrel1H)] OPeast 2= 80; 

esCi@l.utils 3:= S@srsliGl.ewurlimit = 2353 

rs(1@l.unitbuy := Girs(lGl. sore s= “NA; 

-sCig].delere := Bsrs(1GJ].penalty := 4; 

rs(18)].0PcoseTTL 3:23 (reC18). OPeost. 34¢ rs(18)., inventors). 
eraCigjJ.utilsTTL 3:23 ¢rs(1@l.utiris de rslib). inventors), 
rsCil].name := ’GAimad’ sreCtli.wseravail := SsrsCllil.status := 13 


ZN 5 “initdaaux } 
heain 
Init tcdaauxs 


rsCilj.w'Radstares 3:23 lsrellil.senrRsl 3= a: 
reCitl.welRaOcost 3:3 20Msr|e(ill.wr2PRsOcost := 3 
esCiij.wrsReOecast := BsreCtil.inventorsy 3:= 43 
rsCilj].AQcost 3:= S@srs(11)].UPcos. 25 30; 
esCllj.utils := SQ@sreC1LlJ.eurlimit := 253 
resCiijwunittuy :2 BsrsCili.sore := “OMG 
rsCill.delete := BsreClill.penalruw := 45 
rsC11).0Peo0etTTL := (rsC11].0Peo0st yet rsllll. inventory :; 
esCilj.utrisTThL := CreClil.urrlsieersllil. inventory); 
rsCi2j.name := “OR2’srs(Cl2).yravarl] := Ssrell2j.srtatus := 13 
reCil2l.yurkabstarts := 2srs( 12] .urerRal -= 93 
esC lo}. yriRadcost 3:2 S48sre(12].weeRasOeost 3:2 3M; 
rsCl2j.er3Ra0cost := ShO5re(12). invent.ory 3:2 83 
msflo].ARcost := SHsrs(12)].0Pcost 3:= 493 
rsCicj.utris 2:= 120srelC tel. pumlimit. 22 OHS 
rsCi2j.unitduy := Gsre(i2j.sort := “OR; 
raCi2j].delete := Bire(l2j.penalty := @; 
eeCi2).GPeo0stTTlL := (rs(12).0Pcost et rs( 12). inventory); 
esCi2].utrisTTL := (rsll2lurils reali Zl. inventory); 
rsCisl.name := ’OR3% seeC 1S]. yravar) := SirelClsl.status := 13 
esCisl.sreaeOstare)s := Ssrelisl.cwrorRan s= 45 
rsCi3l.yuweriRaticost 3:2 1800sre(1S].wzRsOceo|et 2= 1Ehu; 
eraCisl.arsRaQeast, 3= OsreC1 3S). invent.aryw 3= 3 
rs(13SJ].RQcost 3:= ROsrs(i3)].UPeost, := 205 
reCisj.utile := Wsrelt3).aurlimirn 2s 253 
rsCislounitouy := @srsCisl.sorr. := “OR; 
rsClisl.delerve := 4sre(isl. penalty s= 45 
rsCiS}.0PeostTTh s= (rsf£13).0Pcost ie ersfisl. inventory); 
rsCl3sj.utilsTTlL := (rsCl3).urils rel tS]. inventory) 
ands Cinitaas 


PRUCEDURE INITOBs 


PROCEDURE INITOBRUX; 

besin 
rsCit}.name s= “UBL sre<fis]osragqeuar!t ss terefCt+]. status := 3 
rsCitl.urRa0starres :s= dsrelisl. ure Ral := 9; 
rsCidi.ertRaOeoet ss -Hsrel ls). ort sleast := 33 
rsCi¢)].9ricRaOcast := 4srslid]. inventors := 1693 
reCis].Kcaost := 40sre(14).0Preosr. 3:= 245 
rsCl4j.urziis := 15srsll4].eurlimit 3= 2535 
esCidatw.unitbus 3:3 Asrelfisdlicore := “OR: 
rsCitl.delere := Yare(l4j.eenagity := 4; 
esCid}.OPeosttiL := ¢reC14).0Peast os reCi4d), inventors 3 
esCisj}.utrlsTTL := Crslis)].urils seers id]. inventory» 

ends Cinpedbanre} 


begin 
IMULLIDaUX 5 
reCiSl.name := ‘O82’ sreltS].4ravail s= FireliSl.stanus : 


+ 
es 


Sr 





r3CiSl.srkaeOstarts := Lirel idl. vrorrsal s= 45 
rsliSl.wriRalcost s= t6Rsre (1ST. we2Radcoer : 
esC15J.yurcRadcost := BsrsliSl].inventory := 4 
es(C15].ARQcost s= 2O5rs015].0Pcost. := 75 
rsCiSl.urils := 160srsCiS).eurlimit 3= 253 
rsCiSj.unitduy := Oir<eClS).core := °08’; 
esCiSl.delete := Y3srs(1Sl.penalty := 43 
rsCiS].0PcostIThL := (rsl15].0Penst. oe ref 15). inventory); 
esCiSl.utilsTiL := orsltS).ur11s .e¢erslisd. inventory: 
reCiSJ].name := ‘OBS’ srell Sl]. wrqwail :s SireClS].status := 13 
esCibl.w'RaOsrarts := 2sreC1Sl.srarPad 3= 4s 
esCiSl.yriRalcocr, := 1H00srel(16).4r2Ra0coat := 45 
rsCilol.wsRaOcost 3:2 BsrsCibl.inventory 3:= 4; 
es{i6].RQcost := 10Asre(16].0Penet := S543 
esCiSl.utils := 200sreClb6).purlimin := O53 
esCiSl.unitbduy := BirellSl.sare. := “OR%s 
esCi6l].delete :3= Ysrellol.penalty 3:= YU; 
rsC16].0PeoseTTL 3s= (re(16).0Peost 2% sli). inventors); 
rsCiSl.utilstThL := Crslibl.utils rst). inventors '3 
rsCi?vl.name := “O84/ sreCiP].wravarl s= Taresiil7].status := 13 
esCirl.wrRadstares 3:3 ZsreC17). weer Phal 2 = 435 
rsCirl.yrihabeost := SQA; ref1 7]. 9r2Ra0eosr. := 5007 
esCi7l.ywersRaOcost := 8srsll7]. inventory := 43 
esCi?l].A@cost := 15@2r6017)].0Pcose. s= 2253 
esCifvlutils :2 44@srsCl7l.eurlimit 3= 143 
esCifvl.unr~ebuy := Gsrel(l?l.cerr s= “ORS 
esCi7j].delete :2 8srsllifl.eenalty := 4; 
reCirj.0PeostlTh s= (4017). 0Penst ¥ rel17]. inventory); 
esCifl.utilstTTlL := (rslirl. utils rs (1e6). inventory); 

ends Sinttop* 


PROCEDURE INI TGENRLOATA; 
hesin 

bS := rs3 
redbucset (ijl := 354@srenbunger([2] := GANGsrentudger(S] := Q6uy5 
redbudger(4] := 928Gsrecbudeet,(5)] := 3140srechbudeer(S] := 31S93 
redbuceset(7] := 916Asredbucset (3) := 3100srenbucset(3] := 31693 
redbudser(139] := 3189; 
redpudeger.[1i] S2ABsrecdtudser (222 s= S60A;sredtudgerf[is] : 
recbudger[ 14] 9289 sreabudeet (15) := 91AAsredbudeer([15] : 
recbuacset (17) := 318Asrecbudeert.(13] := 319Gsreqbudger.(13] : 
redtudaer,(24) := 9140; 
Blubuceet := recbudget: 
PA8SPentL 3:= 4; 
DaaSsPent = WsrisPent := MsbiePpent := Airrenspent := Asordspent 3:= 
MAUMOFSyYSLems 82 Lei 
s@ar := Wswarcont := “N’ 


CO uD 1a 


bo 
a) ut ce 
~ me 
Oc 
@ & & 
er we & 


mS 
‘we 


ands finit@genr ldats. 
Regin 

Ini loasInitsetlabsinitsetZobiinitdasinitavsinitsenr! data 
2nd; Cinrtialize> 
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L Tre FOLLOWING SEGMENTED PROCEDURES GRE COMSILEM GNO INSERTED IN THE MAIN 
PROGRAM AS SATLH 1R USING THE COMPILER “INCLUDE” OPTION, CUE TO FILE 
SIcE CONSTRAINTS. > 


SESMENT PROCEDURE INTELSTATUS( Perwcan : strings); 

{Recessed from ingin menu. Providet <etatuc of current intelligence. 
Hllows the Procurement, of Future intelligenre, the display or 
acayired intelligences, and the scraeeine at al) reavuects budgeted 
for the current year.> 

Var 

1f?laa 3: booleams a: char; 


PROCEDURE RIDINFUs 
War 


PROCEDURE &LUERID: 


besin 
1f CFBo = 1880) or (fho = -1GA) then 
peyin 
+OHos=Fte-1lVHs bisPpent:=h1cment-1945 olulefts=blulertrlge 
ends 
if <FfboO 32 1048) or (fbd = -1ABdD then 
beain 
roasst¢bd=-1HAs hispent:=oisPent—-1GA; bluleftssablulertrl au 
ends 
if (*berie = 168) or (fb>rdoe = -188) rhen 
begin 
+Ormdo:="orda-180; bisPpent: =oisPent.-19%s bluleft:=nlulett+igu 
ands 
1? CF Bed = 14) or “f>rdn = -10A then 
besin 
*brad: =trernid=1AA; brePenr.s=01sPenr—140; Sluleres=blulertrldyu 
ands 
rt 6 Fro = -28A2 ar (fen = -1AAY shen 
Ssegin 
FRASzEeNFONAs bisPenmts=hicsPent—794G5 bluleres=dlulert+2uu 
ands 
rt CFrd = -290) or (frd = -1FG@) thon 
besin 
teds=Fraregas sisrpent:=presrpent-298s blulefts=plulert+29o 
enas 
1f (Freeda f= -20G) of Cfreda = -~!1FRY then 
begin 
Treo: =Hrerdoee4a;s icPpenr.: =DisPenr—2HG: blulert: =nluleFt+cua 
2nds 
1? Cf erdg = -2080) or (Freed = -tAA then 
desin 
Prrddss¢rrade2GAs sispent.:=o1crpent—-248; blulett:=dluleart+cou 
end 
2nd3 Chitreryedt> 


PRUCEBURE REORIOs 


begin 
FP CF ra = LAM ae fern = <1) then 
pesin 
frags sheq-1Ois rispentr:=rrepenr.—iMa; reqlert:=redlert+10g 
ands 


OW 





Le ered = Lew oor ted = -t hw) rhen 


besin 
Prasstrd—1G0s ricPpentrsricspent.-1o4; redleft: =red] ert+iua 
ends 
lf iferda = LAA or ofrrdo = -1f@) rhen 
begin 
Hredosstredo-lhAs rispent.s=riseent—140; redlert:=red] eft+146 
end; 
lt i Ferdd = 1WH) ar 6 Fredd = -108: then 
besin 
freeads =hredd-1HAs rispent:=ricPpent—1H4; redlert:=redieft+iua 
ends 
1¢ Cfho = -288) or (foo = -) HA) then 
Degin 
Foor =horeOs rispent:=rispent-24h; redlert:=redleft+7ag 
mnNds 
if vtba = -2G6) or Cf = -18H) then 
hesin 
feos =F bd+2UAs rispent.:=rispent.-280; redlert: =redleft+1cua 
ends 
1¢ 66 Fbrdae = -2AA) er (fbhenoa = -1FM) then 
oesin 
Hbenio: =fordat7a@: risrent :=r1spent—2M0A; redlett:sred]left+2cue 
end; 
Lt (FOrdd = -2AA) or Creed = -10H) then 
besin 
fordd:=*erade2aG@s rispent:="1sPent.—2045 redlert: =redilert+zcaa 
end 
2nd; fredeid> 


besin 
lt Persan = Player<(21] then redrin 
2lee bluerids 
clear<ecreens 
en/1e615,19,°RLL INTELLIGENCE -CNUNTERINTELLIGENCE PEOCIPEMENTS’ 33 


As TCC los il > HAE SFEN CANCELLED FOR THE 'YERR.% 2X5 
Pica loslas” “Pree SETUPN tio Mantinued’ 5 
readt 23 

2nas trindinto, 


PROCEDURE EWY INES 
Var 
2? : CNS; 


PMUCEDURPE BLIYMENLI 
Late 
ros tpyaees 


PROCEDURE ODITREDs 


PRICEDURE OAs 
besin 
1f CF rasiGa? or ¢ Pf rns-tAA® then 
beain 
clesarccreen; 


PULITG 1RelM,“PUNOIMS FOR THIS ITEM 48S SLEESD'Y BEEN PROVIDED’ 


Put. LRsll.’ {Preece BETURN 29 Continues’ 03 
reade iyi; 
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ex tC busmenu > 
2nd s 


Pras=Ffrori as risPent:=Fricpenr rth: redlert:=red] er t-1uG; 
clearscreens 


PULITO 12.1 Bs’ You Haque suet allared £1604 for intelligence Precurem 
ant. “5 
PURI L2ei1s’ (Pres<« RETURN ta Continued’ 93 
reac) 
nds {342 


PROLEDURE 8B: 
hear 
rf Cf eage1ag) or (ff rdsz—149 then 
beagin 
Tlearscreerns; 


PHTILC LE» 1A,°FUNOING SOR THIS TTEM HAS ALFERDY BEEN PROVIDED’ 


PURILCIB,1L1.7 ~Preas FETURPN to Continue’ D3 
readt a); 


®a~IEK Duymenty ) 
ends 


red2srrdge1@s rispenmt:="1<Pen7.+1AAs redglett:=redlert—1ioH; 
celearccreens 


PULICC Llatht,’ You have gust allored sth far intelligence procurem 


mnt. 05 
PUTIEG 120115’ {Peoces FETURN to Continue’ 33 
read ct) 
ends “bos 
PROCEDURE IC; 
pean 
rf CF eede=1GA) ar ¢Ffreda=z18n) rhen 
desin 
clearecreen; 
PuritciGs,las’ FUNQIMG FOP THIS TTEM HAS QLFEFESDY BEEN PROUICED’ 
Putitc 16.1157 “Preas PETLUIRN t0 Continues’ 3 
readt ds 
2x10 Buymerny ) 
2PNds 
Predorsfredn+l Gs ri apent.:="14Ppent+lAGs redlett.:=red)]ert—-14a;5 
cClearscreen; 
Putit¢12,14,.’"au nave sust allared F1AH for intellisence arccurem 
Pilitce 33 
Pipe eG los lls” (Prese SETLIFN to Cantinua>’ 03 
re ade > 
ends 


zl ~- ‘ 
a 


PROCEDURE OC; 
Resin 


If © Predd=10@) or ¢ Preaqs—'60) then 
hesin 
tlesrecreen: 


PURIT. 16.18. °S)INDINS FAR THIS ITEM KOS SLREADY SEEN PROUIDED’ 


SPUCIT«( lBalle” {Preeas SETURN to Continues’ 3 





readed ys 
27 7. Dusumeryes ? 
and 5 
frrdds=sfrrad+i@as ricwment:=r1sPpentelya; redleft.:=redleft-100; 
clearscreen: ; 


PuULLT.C12,18,’'au have yvust alloted $100 for intelligence Procurem 
QNt.” 33 


Putinelesils’ “Preece RETIIRN to Cantinue>’ )3 
read 4) 
ends fdds 
PROCEDURE EE> 
bearn 
1f ¢ fbos—200) or (fho=—-1uy) then 
begin 
clearccreen; 


Putit¢ 16.10.°FUNDING FAR THIS ITEM HAS ALREADY SEEN PROUICED’ 


meutit¢ 16,11.’ (Preeq RETURN to Cantinue>’ os 
read a); 
exin¢ Duymerny 
ends 
Phos =fho-244s risPpents=risPpenr +2945 redlett: =redlert-209;s 
clearscreen; 


Punin¢5.,18.’You nave inst alloted s2ag for intellisence’counterin 
telligence Procurement. % >; 


PuLItcC iS Li.’ “Prezs SETURN to Continued’ 5 
read(d) 
mands ‘pe 
PROCEDURE FF; 
besin 
it € fodg=—280) ar ¢*hdt=-128>) then 
begin 


clearscreen; 
Purst¢18.18.°FUNOING FOR THIS ITEM HAS SLEESDY SEEN PROVIDED’ 


3 
PuLItC LS sll.’ <Peeaes RETURN to Continue >’ 5 
read 35 
Px1LC Duumemy ? 
2nds 
*bas=tha-20G5 rispents=riepent+2aas redleft:=redleft-caG; 
clearscreen; 


PULITCS.»1A»“'You have Just allated 5208 ror inrelligsence-’counterin 
,elligence Pracurement. ~ 3 


MptreclSells’ {Peess SETUPN ta Continue’ 13 
readtd) 
ends oe oe 


PENCESURE 563 
begin 
if C PPrendast—29n) ar ¢ Sprriq=—154) then 
begin 
clearecreens 


PUtILC 16,10. FUNDING FOR THIS ITEM KAS ALREADY SEEN PROVIDED’ 


PUTIPC 1B sll.” “Preees FETIURN to Continue?’ 35 
readtid): 
2Kitt huymeny ) 

2nd; 
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Fiwnidawe SO ae 2 wie TuDe CaN Ome + 214Q = ro} os ; =re7) erT.—28A; 
Cc learscreens 
SULIECS si Bs’ You have sitet gllated S2un for inrellisence’counterin 
tellisence Procurement. % '3 


PUzINC LS sll,’ (Press PETIURN to Continues’ )3 
readtd> 
ends Cas 


PROCEDURE HH: 
beain 
rf (FP bradsz—2402 or ( Sheds 1 4 then 
begin 
c lear<creen; 


putin€ 16.14.’ FUNOING FOR THIS ITEM HAS ALFEROY SEEN PROVIDED’ 


PuritC 16511 2” {Press RETURN to Comtinve>’ 3 
read 4); 
exit Buymenu > 
ands 
firdd:=fhrdd-2045 ricpent:=rismenr.+2003 redleft:=redlert-20G3 
clearscreen; 


Putt. S.is'Yau have Juet allorernt $2@@ far intel lisence/’counterin 
telligence srecurement. “)3 


Pmeres. |Sells’ (Preees FETLIRN to Continues’ 05 
readtd) 
2nd. | hh} 
besin 
case fF of 
73% oR 3 bes — 
“b’,’B’ 3: SB: 
i os Bigaars ahs BH 
“G7 5-07 «2 Ds 
“a’,’E’ : EE; 
Pos’ R’ © EP; 
7a’ 4°’ 3 533 
a na 5 ht 5 
fa’,“°Q’ 3 iflag := true 
end 
2nd Sadat red? 


PROCEDURE OOTTBLUEs 


PROCEDURE RA; 
begin 
if 6 *Sos1GA) or Cf host—'AG) then 
heain 
clearecreens 
PunItC 16.1. SUNOING FOR THIS TTEM HOS ALREROY SEEN PROVIDED’ 


PUTT Lhsells” (Prees SETURPN to Tomtimuer’ 75 
readtd); 
2éMiILC Brismenu ? 
ends 
Phor=(bortyws pisPpent.:=nrepenr+1hGs Slulerrs=mlulet—1tye; 
c learscreen; 
PULIRZC 12,18," Yau have suet. alloted S1GA for intelliaence erocurem 


fe 





PUTItCLl2sl2. “Peenas SETURN to Continued’ 23 
read.) 
ends 1 3e3 


PROCEDURE 68; 
hesin 
If 6 fOg=1GAR> or 6 PoA=z—160> then 
besain 


clearserezen; 
PULITCIGs1@,.°FUNOING FOR THIS ITEM HOS SLRPESOY BEEN PROVIDED’ 


PULItC 18.115’ «Preece FETHIRN ta Comtinue,’ J3 
read 4); 
exit tC ouement ) 
; 2rd s 
POods=fbd+1hAs bizeenrs=hrepemt+414G5 blulerts=nlulert-1LuG; 
clearscreen: 
PULRLEC Lost, “You have unet alloted FiunM for intelligence Procurem 


et a 
PutIUC L2sll.” “Preees FSETURN to Camtinue>’ d3 
readtd) 
ends Caley: 
PROCEDURE CC; 
beain 
rf €forde=160) ar (Ff brdo=z—-10H) then 
pean 
clesr<creens; 
Putitt tesolus’FUNOING FOR THIS [TEM HAS ALFESO’Y BEEN PROVIDED’ 
5 
Pur.1t~C lboll,” “Pree FETURN *.o Panmtinue>’ 75 
read di; 
D1 TC Oriamentr d 
zn; 
fOrdos=rardortAs Srcpent:s=or1sPpemt+1AMs Glulerts=bluleft-ings 
clearccreen: 
PuritCl2,iits’ You have owner. s]linred 3164 *cer intelligence Procurem 
mii. «6S 
HET C le sll »” “Preees PETURN tao Contintiie>’ 35 
read d> 
2 5 (Soa aay 


FRNICEDURE OO; 
OFgin 
te CP RRACELAAYD of 6 Hrd 1GG)5 + hen 
nesin 
rlearscrean: 


PUTITA 16514. °SINOING FOR THIS ITEM HAS GLEEADY BEEN PROVIDED’ 


Putt TR tt,’ (Beece FETUIRN to Cont.inue>d’ +5 
reants; 
2VILC Arment ? 
mid 5 
faeddssthragt+thA;s hicpenr.:=m 7 spenr+ thas Alulettisetblulert—Lnm; 
clesrecreen; 
SUIRIBC LS oi4,’ You nave war allatedq Fim far inrelliaence eracurem 


nz 





Ont. “93 


eurit¢leslis’ (Press SETLUIFN tao Cantinues* 33 
ready) 
end: lala gs 
PROCEDURE EE; 
beain 
1f CP rqs—2HA) or Cfros—1hh) then 
sesin 


clearscreen; 
PURICG18,14,°FUNDIMIS FOR THIS ITEM OS ALREADY GEEN PRUVIDED’ 


PURIRGTA.IT1.’ ‘Preee FETURN to’ Cantinue>” 33 
readcd)s 
ext tc husmeorntys > 
znd s 
Peos=fro-2HHs Dicpent.:=n1ePpenr+2G0; blulert:=pluleft—2a@;3 
clearscreens 
Putin S.1Gs’ Yau have Jet. 3llated S2Ha for intellisence’caunterin 
telliagence Pracursment,. 5 , 


Miayere( 1 Sel ls’ {Press FETIIEN toa Continue>’ 03 
read d> 
enas {peo 


PRHUCEDURE FF; 
hesain 
rf Cf rds 20A) or ( fedz—1G0) shen 
pegin 
clearcecreen;s 
PutItC16.14,°FUNDING FOS THIS ITEM HAS ALREADY BEEN PROVIDED’ 


Putitci6.t1.7 (Paeses FETURN ta Cantinue>’ 03 
readt dd); 
2xIT LC buyment 2 
2nds - 
Feds=trd-ZvAs brspeer:=mrcspent+ena; blulett:sblulert-2aH. 
clearscreen; 
PURIPCS st. “van hawe Just. allated s2QM for intellisence/counterin 
Lellisence ernocurement.. “3 


PUE eC 15.) 1,” “Press RPETUFN to Continue’ J3 
readtd) 
2d 5 JES es 


PROCEDURE 3G; 
besin 
re CP eedos200) or ¢ frrdas—1AA) then 
begin 
 tlearecreens 
6 PURI7AC 16214, °EUINOTMG FOR THIS ITEM HHS ALBEADY SEEN PROCUIDED- 


PULTitt 16.11.57 ‘Prose RETURN ta Continue>’ 3 
resent dls 
PMI 7.0 Hume } 
ends 
tredorstreto-264; DisPpent:=nisPenmt+2G4; bluletts=nlulert—240;3 
elearscreen: 
Puti?t¢5,19,'*nu have iver alloted Seam for intelliaencercounterin 
2elligenc2 procurement. 3 
PUCCIO 1S,11 .” “Prees PETURN to Tontinue>’ ); 


% 





mee gt it 
2nd; aah 


PROCEDURE HH; 
heain 
if CF rrade—260) ar ( ¢redgeetha@) then 
begin 
clearecreens 
Put.it¢ 16018. FUNDING SOR THIS ITEM HOS ALREADY SEEN PROUIDED’ 


PULILC 1B ells” [Press FETURN to Continue r’” 03 
ready); 
2“10¢ buymeny > 
ends 
Predd:=frrid-2083 bispents=hnicpent+26a5 nluletts=plulett~-2eas 
clearscreens 
Pt1t65.1B.’'rou nave sist, alloted S2aG far intel lisence/counterin 


Lellisence Proazturement. “33 


AMULIGCLS.L11 7 (Prezs SETLIFN to Continue’ 23 
read 4) 
2nd; Lh} 
besin 
case ¢ aor 
iY era” : HRs 
‘p’,°8’ : BBs 
femeeG. * CU; 
gah Ae al al 
°2’,°E% = EES 
oe el aes ad : PF; 
“@ 4°" ¢: Iss 
0 0 he eo MO | 
Zar ,’A’ 3: itlass := trye 
end 
ends Carte lue> 
nesin 


zlearicreen; 

PutitC Sesl,’PURCHASE OPTIONS” 03 
PULICA LB eSe'° SR... Ciimment, Ferce Strenarh af Enemy Offensive mrarces’ 3 
PULIL. 16.4,°8...Current Force Strenaetn af Enemy Tetensive Forces’ )3 
PULILC 15,5.°C... Current iffensive Enamy REG Proauecta’ ); 

PULItC 15,0.°0... Current Defensive Enemue 280 mProuects’ Js 

PULILC 1647,°5... SUPPLY Counterin’.ellieemre Regardinae dun Urfensive 


PutitC iS ade°F... SUPRPI4 Caunterintzellisenc2e Seaardina Un Derensive 


MAILIU Lb eSe SR. . eSePels. Commrerinrel lisence Regsrdings Dun IFfensive 


PUTICY 18210.°4..,.5suPely Caounterintel lisence Regardina Cwn Detensive 


PULL CULe alls YU... Omit” V5 
MILILC 13.14, Intellisenre Cost eer [tem (A the OG): Slow os 
PutitC 13,15,’ Count.erinzellisence Cost per [tem c= thru so: Seki’ 35 
1f Persen = ePlaywers(1] then 
3e291Nn 


SOCOXy 13,165 tsrineine “Snmu|al Gerense Buqaer Femaining: 3° ,redl 
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ret! 


R0tAxXU 19,16 suritelnt “Annual Defense Sudaet Remaininss 5° .diul 
2tts 
ands 
Putite 16.139,’ENTER OPTION LETTER: “5 
POLO 37.13. sreadc fh 3 
lf Person = Playereil) then datrtred 
2lse doitolue 
Inds £Duwments} 


besin 
repeat 
DU SMe 3 
wnril wilae 
ends Chueinea> 


PROCEDURE SETINFU: 
wor 
PF CNSR eA OM sOVsOolsE F LNT cer; 


PROCEDURE LINELs 
Se9gIn 
It Person = Players([1] rhen 
begin 
1¢ ro = ~-149 then 
begin 
eur.1ttla.4,°Cla umable to breach enemy counterintel lisence da 
Crier o5 
ayvitflinel? 
znd 5 
ir ra = [Ou then 
pesin 
P = rancanm mad AAs 2 := randam mod 2463 
OQ := Ofatooos op : 
Aaraywd [i,4 03 
upitelind “Taral snemy offensive utils are e4timated to be Detw 
Pen °,0P,”° and * s0475 
2xitt linet? 


2nds 
PULITC LM side” mi TNENSMATION PROCURED’ > 
end 
21s 
egin 
if OA = -tAMH then 
besin 


Pte ied. 1A maple to Sreach enemy counterintelligence ba 
Sten” a 
exite linet? 
2nNds 
lf Ba = 1AM then 
bee@in 
SP 2s sandam nad -GnH; 
QO 33 raarrnds oF 3= 
IT. AV 1A 25 
mereeolng “Tarai enemy offemrsive utils sre eetimated fo of bet 
22m  20RP,° aNd ° 49905 


= random nad 20m; 


a: 
Q-P3 94 2= N+; 





end 
ends 


cpa Ueda Let at Gael 


rN 5 
PULIU Lisa.” NO TMPOARMATION PRPNCLIRED’ 2 


linet? 


PROCECURE LIKE; 


alo DE a7 


1+ Person = elayers({1] then 


Pbesin 


Lf PA = 18 then 
Desin 


are ier’ 93 


Joe 


u 
Bf 


Put.1t¢ 14.12,°CI9 wnable ta prescn enemy caounterintel lisence oO 


2x1t¢ Lime? 
2nd s 
wrt = 14 then 
mesin 
P '= random nad Pts 3a := randam mad 28; 
S 2:3 Sdatndhs oP 3= 2—P5G AQ HS = NFS 


BALAI 18, t2 ar 
armineln “Tor.al enemy deren<iie utils sre estimated to be betw 


1) ° :0Ms,° and ° »492; 


2xif.¢ line2> 


2nd; 
PutItGC LAele!.” NO TNFORPMATTON PRACURED? > 
end 
2l<¢2 
beain 


1? Sat = —1HH then 


aerper’ oi 


begin 


PuLItCtA,IZ.°FIA umable tra hresch enemy counterint.e!l lisence 5 


2xit.¢ Lime2) 


GNC 5 
1¢ Od = LYM then 


bean 


27 := random mod 2uhs; a := randam anq Zoe; 

0 := rdgartedds oP s= O-F5 NA 3S 44; 

IOTOKYC 14,1295 

Weitelnd “Total mnemy cefensive utils are 26himsted to oe Jetu 


2en °.0P. and %.0945 
axitt dime? 
PG 5 
mtits [B.12,% MT INFORPMATINCN PROCURED?’ > 


zm 
zr 5 


fline2s 


PROCEDURE LIMES: 


oesin 


Cc := 485 
lt Person = Playere(1] then 
Begin 
If pedo = —LAY then 


amr ier’ )5 


heain 


mr.17t [4.15.18 sinamle ta oreach enemy counmterintelliaence 3 
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3A 
Por 1rs 1 ta nme ssctems ca 
if cbsCi).statussze) and (h<Cil.deleresa) then 
rPCbel(ij.care.=70R/ > ne (h<fil.sar.=’08/) then 
A 2se+ls 


aatox( 19,153 


we~telnd “RPereerr.s indicate enemy currentls funding “.c.’ 


OP + 24) 
sive R&D penyert.2” 33 


1t-< limes) 


ends 
Perec 1,155” MO [NFORPMATTON FPROCURED? ) 
2c} 
2lse 
begin 
if orda = -1G9 then 
besin 


G @ 
eX 


eur.i1tC18,19,’°CIA unable ta breach enemy caunterintel lisence 6 
arrier’ 3 


exit limes) 
203 
if Deda = ta then 
begin 
for t:= 1 to mumoressteme go 
if €es€1).etatuss=2) and ‘reCijl.dejere=4) then 
1¢CrsC1)].sa0rr=79Q%) ar (refi i.scare2’08") then 
Riser; 
aatorw 14,19: 


HBPILein¢ “Reeares indicate ememy currently fundine %.c.% 
sive R&G eroquects” >; 
axitc lines? 
end: 
atit¢ 19.135." NO INFORMATION PRORURED? > 
and 


znd 3 flrrmeg> 


orf en 


PROITEDLIRE LINES: 
seein 
cote Ws 
Lt Perton = Playuer<e(1] then 
peain 
rf redd = -!1nK then 
beain 


Purit¢ 14,18,’°CTR umsole *n reach snemy counmterintellisence o 
arrier’ 33 


axizt lined) 
203 
if redid = ly” then 
Desin 
far rss to ta mma cueteame ta 
if (bslil.staruss2> and “hsCil].deleresd> then 


ref os(1). s0rvs’ OR.) am “bal ]. core 270’ > then 
T2Se+l 


aoLaxrw6 18.183; 


Me Ttelint “Seenree indricear.2 enemy currennlyu Sundina % sc,’ 
sive 2G erayertie’ 3; 


e“r17.C Limed)d 
ale ir 
Piet 1B stBs’ NO TNFOBMOTION SBCrlRPER. 2 


ger 2n 


7M 





erirct 


2lse 
besin 
if Ordd = -1HO then 
begin 
Putit¢18.19.’°CIA imable ta sreach 2nemy counterintel lisence 5 
arr ier’ 35 
2vitt limed?) 
ends 
if doedd = LHA then 
heain 


Sor 18= 1 ta numatcuetame cin 
lf CesCil.stetucz2" and (relil. deletes) then 

ref eslil.sare;s7N0/) of “reCil.sarr=°08’) then 
cs =erls 

Farox LGs,18 5 

WeIRelnt “Reenrt.< indicate enemy currenmnly fundins “%.c.° deren 

S1u2 FLO Projects’ 3; 
exit Limed) 
ends 
PUBIC. 1BstlSs’ NO INFORMATION PEORURED? > 
end 
ends *limed> 


besin 
clear<ecreen; 
PuLILC 2S8,3,°CURPENT INTELITGENCE REPORTS: % 05 
Putit¢5.8,° ENEMY OFFENSIVE FORCES INFORMATICNs: * ds 
linels 
PULILCSs,11.,.°ENEMY CEFENSIVE FORCES INFNRMATION: 7 >5__ 
line2s; 
PuLit.CSe14,°ENEMY NFEENSTIIE FRO TNETIRMOTTONS: % *5 
lines; 
Purine. Ss.i7.,°ENEMY NEFPENSTIIE 92.0 TNECRMATTIONS “ 05 
lines; 
PULIRC S721,’ <Prees FETLIEN to Comneiniue>% 33 
react 2s 

=nd 5 {aetmneo ? 


bpesgin 
itlaa := *3)lse;3 
reee Sf, 
2 learscreen; 
PULiUC Sede’ SELECT INTELLIGENCE OPTICIN:e 7; 
PULILG 1529,.°R.. Receive Preenrnquely Purchacer Intelliisencrs [nrormarian | 


PUGLITCLSs,ti,’S...Purchace Intell) eence-Canmrterintelligence Inrormatian’ 
Sutiettlse,la, 7... lance! 3) Ineellreenre’taunterinre! lisence seanests”% > 
HVILILO L3 elds’ For the Current, Year’ 13 

Puritt tselBe’O...lsult’ 33 


FOLOK 37 oS Jsreadt d); 
case goof 


“3%, R% 3 seinen: 

‘RB’. BY $ Buyintos 

Eos i s Fieint i; 

“ae i mW : itlaa $= fru, 

atherwise help 

Fernds 
wntrzl itlsas 
zs Srnperlerare } 
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SEGMENT PROCEDURE IN(T'R: 


{lalled snnually. Updates intelliasence ann expenditure variaples. 
COMeULes proverted total systems oPperatina casts for UPCOMING ‘sear. 
Shelves undecided new R20 zyereme fram Preiota ‘sear, and determines 
sneluvineg penalties. OUecremenrs new Budget bu twice Previous BSudgert, 
overrun. Intrnduces random draw to 3aduist expected budget and #40 
Fisures, > 

var 

JIJelsAounrirarm,deviatian 2: inteaer:; 


FUNCTIGN MINIMUM =: integer; 


Dean 
1f 9 <= SO then minimum := 4 
alee minimum := 3a 
ands CMLL mem > 
PROCEDURE RINITRO; 
war 


Js» earlier : inteser; 


PROCEDURE 85SUME; 
oeain 
1¢ reCul.status = 2 then 
hegin 
1? reCulosenehsD = 2 then 
dessin 
reCul.wrsRabcoer.: =eeCu). er tRsdenere SA 5 5 
recspent 3:= cedspent + rofl). wcRale act; 
redleft. := redileer - «sf. ).:ursRaderse 
ands 
ir rsCul.yurnrRad = 1 then 
begin 
rsCul.ureRaQcost.:=re(s). wr eRalecoet. Sesy 3 
redspent, := eertepent, + eaCuliancRa0coets 
redler, :=s pedjess - ~efu). ureksatcoct 


ends £asearimea > 


beain 
parlier := year —- 13 
fr J := 1 to numarsystems do 
heein 
rY CresCuldwwemsOstarts <= earlier? and ‘re{u). status 
1¢ weCul.delete = 4 then 
neain 
rsCuj.status := 733 
esCulyrauagit 3:2 rsCul.sravarl + 1 
ends 
1? (reCuj.awRaGatares “= oar lier) and CrsCul. stratus 
if esCulidelere = A then 
mean ; 
reCulewraqairl ss reQodssrseart + 13 
1¢ esCyul.yretPad = 4 then rsalilieenaity := Ys 
wf rsCul.yvrartR30 = t then 
pegin 
ase ref). rtRane ser, 3 
esCul.pensity := iainimum 
PN 5 
1¢ esCulwyrorRad = 2 rhen 
pean 
ass rsCuli ur cPsalensr.s 
reColl penalties ¢ = invmrmrim 
ony 


t> shen 


3) then 


fz 





ends 
if CreCul.eurhatict.arrs (= ear}ier>) and ireCu). etatues 
if rsCul.delere = A then 

hegin 
raCoJ.urnersd ss reCuleywrotPh al +15 
fo rsCjl.yravarl = yesur then rsf.i].atnatus := Ws 
assume 

end 


fa 
il 
SQ 
ane 
e 
3 


end 
znd3 LPiIMitedt? 


PROCEDURE SINITEO, 
Wor 
Js rarlier 3: integer; 


PROCECURE ASSUME 5 


hesin 
1? sul. statue = 2 thon 
begin 
1f aeClleurnfPad = 2 then 
besin 
peCiuJd.arsRateost.: =ne(.1). wr sRaficost Ses 5 33 
Drdspent := bercrpent + osu]. urstPaOcost; 
nlulet. 3:= plule¢t. - eli) ursPaNenat 
PC 5 
if bsCul).srorPa0 = 1 then 
besin 
osCul.areP ale ner.s spel.) wr 2h ale nate SB%15 3 
bedspent := brispent. + o<[.i]. se 2RaUeco<t, 
Blulert. sz Pinlert — Afi), yw Ralc ner 
end 
nd 
2nd. {39 411m> 
begin 


earlier := wear - 1; 
for oj t= Lt to numorsyetems do 
heain 
re foe C id. areaOer.ares 6s ozetro*) and (Chefs). etatus = 1) then 
1¢ bsful.delete = A then 
neain 
osCul. statue := 35 
saCyl.eursquvarl ss hefiljoyraqvarl + 1 
2nd. 
if CosCul. wreaslst.grts > 
1¢ BslCil.delere = A then 
heain 
meCujesrsvarl 2:2 gel tj. ureavarl + 13 
1F psCuj.uwentPhsO = A then ASL]. Penal lta ss 4; 
tro mefoed.urnrhall = 1 then 
beain 
ass bef ).uriPsfirast: 
osful. penalty := ininimun 


sriiert amd (aeCul. statue = 3) then 


zed 
if osful.yrothsD = 2 then 
es1Nn 


93:3 Osful.wreRs0eost; 
befall penalty 2 = minimum 
ann 
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ands 
tt ‘bsCul.yurfalistarra <= earlier! and cosfiul. status = 
if OsCll.delete = B then 

bean 
bsCuj.wrotPsl := belul.‘srerRal +1; 
if bsCul.yravail = year then bell. status :3 4 
assume 

and 


ve: 


Prd 5 {hinttrd— 


PROCEDURE INITINTELS 
DesIn 

1? sear = I then 

begin 

fro 

fred 


3 
a 
a 
4 
a) 
% 
Go 
Q 
a 3 th ) ou 
DS 
ee se ws we 
Ta 
oD 


ee 86 wt we 


+ -t, 


‘Rerins 
rbrdds 


redo :3 frredas 
redd := tfrerdd; 
fra 3:2 45 tho 
trad := 43 +ba 
Predo 
ered 
end; Sire ee i > 


ogi tt 
a 
+, 


" 
ey) 4 


wou 
a > 
we 


a | 
'a 
ase 8 Gs we O 2 


wu 
wm 
mora 
oy an 
a 3 Tt] 


ws ows 


bean 
if nat (year = 1] > then 
beasin 
1¢ Creqlterr <¢ 4) then renmudszer (usar) 
1f Cbluletr < 8) then blununger(Cyvear! : 
LiPMLform := rancam mod 11; 
WOV1LSLION 3= LSdeunitern — Lu; 
redducset (year) := rednuindaer.[ ear) - der) 3at.1ams 
Sluoudger.(year] := Slupudget{fyvear] + cdevration 
ends 
rediert. := rerpudeetf(yearl]sblulert := Sluoiqaer. Cu@mar] ; 
PaasPent := Dspaacrpent := 4; 
rFisPent := Yso1sPpent := 4; 
rerisPent := “Yrordsrpent := 
Sor 1:2 1 to numotsyctemse to 
pegin 
esCij.umitouy := refill eurlimit: 
esCil.tval := ersCij. inventory: 
psCij.umitbouyw := aselij.surlirmit; 
ostil.eval := osC1).invenrorys 
1¢ (reCilj. inventory *+ 4) and (ee C 1). celere = 4) then 
redleft, := redletr —- ¢re(Cil.inventaryere( 1). opcost ss 
ry CosCij.inventory > A) and ‘Refil.qaelere = 4) then 
Dluletn s= blulets - (bseCi]. inventormsensl i]. opcsst. » 
2nd 5 
JJ3= Random mad 435 
Muar cords Oil t.rcds 
INIGIntel 
znds TUNtteer > 


ou 


2) then 


= redhudqeer.( year ]+2sredlert.s 
= bluovdger (year Je2*bluletts 





J THe FOLLUWINIS SEGMENTED SROCECUPES SRE COMPTILED BND 
PROGRAM RS BATCK 1B WSIMS THE COMPILER % IMCLUCe- 


STcE COUNSTRHINTS. + 


SEGMENT PROCEDURE PRINT <permean : 


{Called oet.ional ly. 
Wage 


srrins 1; 


Prints end-nt—-yvesr dgecis 


THSERTED 
OPTION, QUE TO FILE 


Ian summary far eplawers. 


TN THE MAIN 


a 


loJeler tL raqsrent .1srPent rdspenr. : inteser;scucgqudagr 3; gerea|ayw [1..2y] of 
mr 5 
do: nar; 
PEOCEBLIFE TLBNEND; 
15 ar 
1 3: integer; 
besin 
reao:= 43 boa := 4; 
rob := 4; boo := 3 
Pda 3:= Ws bds := YW; 
rgb := 45 Bab 3= 133 
ror 1 s= 1 tn numarsyeteme ta 
Oran 
if ‘res€ll].sore, = ‘NA’ ane Creflli.gelere = 4) then 
ra :3 rna + esllleurileerl: 
if Orelll.sare = 77975 ant ref ll  gelere = 1 then, 
rab s= roo + reCl).utilsrtl; 
If iresClli.serr. = “CR? and (Cr<Lll telere = 2) then 
rdas=rda + reCli).urilarerl i 
ry <ersll isons = “08° and “reli ld delete = 1) then 
BeDee= reo ems ( ) Jit: betr 1; 
KOsC)])]. sore. = “00° sand Chel llidelere = 4) then 
Oma 3:2 Boa + oslCll.urilerels 
rf Loslil.saert, = “08° ) snd ‘ball li delerse = A>) then 
bed :3 bob + neClJ.urilernt.l: 
if © osCli.sorr. = °NG%) and ‘hell agelers = 4) thon 
Dbda :3 bda + pel(ll.urilerrl; 
if COSC] I]. sant. = “HRS and bef ll delete = 4) then 
ecb ef ocb * bsf1)].ut1latr] 
end 
2rwd3 Ys pmorrdt } 
PROCEDURE ClITPUT; 
POLEDURE TITLE 
“ere 
WeIReIN te’ “Osun eing 2,’ See lier Gs | i 
wmeTrTelNCts” “sneitelACte” “ isneineine te” °° Oe 
merRLeine ws” pee ES 25 A 2 
WweeILain’ 2, | | 
mm pielntt,” i ANAL CECTS LON sLinmMgety 77 3 
ee a em ee ec ee ee ies. i; 3 
MT PUN S50 oS 
Wie {tlt Ze PIISVYER: “ ,percan, “ERR: 


ur Raila zr,” 
ards 


PRMLEDLBE LISTICn 
neain 
weiteln ty, 


“ Jsnreslacr, ” 


ACY TaD WEN eg 


. . 2 
Nig i pg) Pg, 


5 LNTt.2aer 1, 


¢ 


Mamet Tupe ts “, 


Pee tt 
a ees 
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fn~].mame, tt ° 


e2yShrd. ore, 


. a 5 


LNL29 





wmrrueine zy, : Inventors: “.2as fn). inverentore '3 


Werte ln ze System mececrqarien moans “,sseln)]. oPcast.,’ 
System scmsisitisn cost: ° »sasln), aacoest 3; 

writelne rs’ itp) vatues “stasini.urils.,’ Purchase rat 
2: “,sys(n)].eurlimit)s 

mrroelne ze’ Tar.g] operatian costs: ’,sueln)  oRPenst tT] .’ 


Taral ut1l value: “,sss€n).utiletT os 
mr Tt ine tea =) 3 lite? telindewz,’ 2 5 
ne L11$tl1 + 


PROCEDURE LISTS¢n : inreger 33 


UP PT ad 
Msi $ LA 2aer; 
Sean 
weirelrnt re’ Namet Type: “ .suslr). name.’ ,syuseCn). s0rtes’ 9% 5 
ams = sag€n). sen¢Rs05 
if s4yeCrn).rsRalca<t od then m:=3 
mle2 if syus(n)]. wcRalcost 74 then ns =2 
alse me=15 
mrTReine ze” ‘Ime 2D completed: 7% sums” Yes aor B40 reau 
treds it's 
mrLrialne ze’ Mmaaras Yeti: “,sasfni.arihatcast..s ’ Yr2 
: ° 2393 Cn). ur2PaDrost.’ Yes: “,ouefn yr tRsOenet. 5 
Wey torl ns,” Syuetem operatson wast: °,s'3s(n)].0Pc 3st.” 
SaSteom scaisitian caer: %,eyeln). 340037); 
WirToelnd te’ Mina l walense % .eaefin) .iinilss’ Purchase rat 


2: °,3sysC(nl.eurlimitd; 
weitalnemzs’ “%suritelntz.,.’ %2 
ands <{lrst2e2 


PROCEDURE INU; 


war 
MecouNt 3 INnteaer; 
De3in 
wet teint Ze’ ie SYSTEMS CUPPENTLY IN INVENTORY: * 73 


WweTReion rm,” * 3 
TDN! =H; 


fr mss tL ta numer syetems to 


Desin 
rt 6 syst]. inventory) and ¢sus(n)]. a2] eres then 
mesin 
Prstlon.s 
TCUNL:S= count + | 
end 
mrids 
1H COUNT.=H then 
besin 
erm it y ” NUINE “35 
ievcelnit Ss,  ~ tshritelnt =.’ 
end 
=nd5 “ppree’s 
PRCILEDURE NOTING: 
ia 
Mec2unt. § integer; 
besin 
elie i rt s, ’ ae SYSTEMS SUATLSRLE SUT HOT CLUIRRENTL'’? IN INVENTORY: ’ 


wi 
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me~yR@ming ms” ° 3 

ZOUNT.§ =H 

for ns= 1 ta numarsystems cin 
begin 


rf C2yeCnl. invent.arva4? and (sue Cn). de) et.2=4 then 
if sys(n). yr avall<szyear then 
nesain 
Lretic ry) s 
COUNTESS count. + | 
2nd 
Prd 5 
lf <TOUNT=G then 
De sin 
WRIT tori nd os* MCINE 7 3 
utiteln( ts’ “ Jsuritelnezs” 7) 
end 
ands Lnaviynert 


PROCEDURE TOTS: 
neain 
wmtrelne ts” TTI. TATAL VITTI. PAINTS BCCUMMLATEDS % 03 
WRIRelNe Zs” 7% 35 
lft Person=Players{t] then 


pesain 
Wwerpzerln¢ Zs ~ Swerem yee Ne: “roa; 
wrPivtelnt zs” System type (Bs “.er0b)3 
Wrrtelne zs 7 Syctom tupe OMe “edad; 
werirtelnd zs System ryee (1B: “.rab) 
end 
2ls2 
nesgin a 
wre ne zs” Syerem tupe Mh: *,003a)5 
we LLelAcC rs” Sustem tpe 16: ~.,o0n); 
wie y t.elLAc rs % Mwerom ty0e0©e Ns % Mars 
mer Tela 2s? Syetem tupe TR: “,odb» 
PNG s 
we Ttelnd te” “sumitelre rs’ 7%) 
ends UOns < 
PROCEDURE CURRO: 
War 
MseCQUNT 3: int.eser; ~ 
beain 
We LRP NG Ze” Th, NNGOING PX PRE IECTS: 7); 


weineinews.” % 35 
TQUNGs =45 
ror nm:= 1 to numer syetemea do 
besin 
1? 6 syeCn)].stiagtuss2) and 6 ructy). colores then 
wr sysCni. yr sOstarvs<suesr then 
_ bean 
Listens 
Ceunt<= count + I 
end 
ands 
1? TOUNT=M then 
hesin 
werinelncm, ” MEINE % 5 
we ILelLNC te’ “ bsweinelmers”? 7%" 
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=r 
Ads 


nO 


FROLEDURE SHUFD; 
Vor 
Mscount 3 
begin 
wer Rela ts’ 
werizelncms” ” 
CGUNTL? =H 5 
far n= 1 
Dbesin 


LNC.2aer 5 


Ms 


L.0 Aimar 


STA oe ge Bi 


SRELNIED RRO PRO IELTS: “ Vs 


Systems ta 


rf Cene(n)  tragnuesto oor 6 eyefn)]. etatiss22? then 


if ¢sys(n). ywrRaOstart.<< =year ) 


neain 
listecn>? 
TOUNts = 
end 
rds 
lf fSOUNTL=Y Then 
beetn 
mertealn¢€ 2.’ 
weitelnezs” %% 
2nd 
2nds 


PROCEBUFE SUD; 

War 

m 3 Integer; 
PROCEDURE LOST33 

Var 
ell ae 
D2a1n 
fcmeg. ¢ 
ceain 


bei 
+ + 
a? 


int.e2aeer 


s 


|i ai 
feustiy) 
1 s4uef iy 

mean 


hurd tom Line = 


CA i 
US IF 


t ssseCivl]. sOrt, » 


merpnielat rs’ 


‘  ssslivl.oprostrtr! | 


NIM? B46 P.2mMs 


and ¢suc(nj].delere=1) then 


count * 1 


IME“ 3 
supritelat zs ae 


Febery 


qn 


eoseaennr. | + 4 ane ¢ 
ledeleres = yy then 


mycfpaj)oaurmragi] < 


“dame types ,sueliuj. names’ 


Tatal owerarina cast: 5 


end 
znd 
md 5 Teast 2” 
oesin 
we rieine’ wt, er SNCIMHIE AVEO SICET TMECIPMOATIMON: 0; 
mrinelatC te. 5 
tem TTD Line Te” Tatal Gomes) alloawgnees 3%, aycnucaetl'aear ) 33 
ae ioe LPN 5” Pinel ent eatery neat WS = PY 1 OMS an oo stsls oS oe cess 
cece oD paASPONL )5 
mertelnd st,’ MPAAt ate, ott LINE LOND. ccc cc ctw ese e eee 
Heese ol sRent. 73 
Pr LPP Ler wey” Sleiales Git Re ial Sk 2) va een 
cocee sds aPAsPent. ‘3 
tie yi De” NPersa.ine costes AM t4steanm CLhHOSse IN Inventors 


we 
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Pitetmees.”% 7 33 
TOStss 
ny $= wear ve 15 
weitelmiwzs” %~ 3 


rr ueln€ tos’ 
wr iteime vs” 
budgeser lin} 9 
FI 5 


Desin 
Litles 
Lit 3 
NOLIN s 
7,033 
cur@#03 
shukO 5 
buds 

ends 


begin 
Lurnrend s 
Lt Person 
Bes1n 
Ssy<soudcae,, 
a%ePent 3:= 
end 
2\lse 


Plaver<(1)] then 


r3acPent s1sPent. 


= iccean: tend: 
=nds 


clesarscreens 
3OLOKS 19,893 


writeinme “GECTSIONS RY % ,percan, ’ 


=~ 


if NOT CerersS 
D=s1n 
PuULILC15.,14%,° “Proeas 
PULITCLS.,1le.5 
Prndgs 
RUCICC 2 
Pes dl; 
1¢ (asp 
Cesin 
CUILPUL 3 
PUTITG ids lis” 


“> then 


477Q¢7?7 


Sor <a re > Len 


Set id, 12.” 


read 3) 


SEGMENT PROCEDURE 'PEGRENO: 

(Establisnee annual same utnner, 
2ither displays sdursory to the 
randam grsw 
War Sent, 
ml ayers 


Var 


Ac currence. 
decide to wit 


= rednurtaer 5] eft, 


Pluoudeaer, ; lets. 


TA ART QIN SF INtaut af wear’ “s 


2ol3s’<Precs RETUPN to cantinue 


LO CAMPAr® 3931NE?. tHe TAMPUTed zPraman1lits 
Treatr.es dat.a 
gm] reciime agne 3f. x 


TAL AL MONLSSe PeMainineas: 


ig s lert or 
Experted defence bundger. 


for Next wear: 37,696 


“rita 


{Mt Pye, | 


= red) err.ssye 
PL1sPeNnt :rdzPent, 


, 


rrdsrent. 


se 


5 
Ta 


e 
° 
= 
o = 


"= bluleeciave 25 
f= HitPent. ;rdzPpent. 


3 


Ssrdspent. 


as 
‘iu fe 


FOR ‘YSGR ’ wear,’ 


BRE COMPLETED. 


MeRISIONSS’ 13 


mn’ 


‘aane@ >] 3au>/ 35 


PRINT 7 


Cameutes the epenpanilits of 
rimerpee “ne Lt decisions or wakes 3 
79 dtecice 


ete 1F 
(ne, 3 


Nar 4nd 


file an temen ticket 
Later ft 
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rerqd,Olue® 3: inteaer; 
PROCEDURE WINNER; 
Laer 

pect 3: 


PROCEDURE CECLEREs 
Begin 
elearscreens 
CHIL? T.6 1S Be! oe 
PuLInECLS.4, | 
PM TeCLoso.” | 
PUTLI20C 15,5." | 
BSTC loe. » | 
Pytitc 15.3.7 | 
PuL2t¢ 19,357] 
PULITC LS .i,~ | 
IOLOXH LSeni4d swrirtelne 7} 
PULItC Toe ios | 
PULITCIS.»18.% | 


StrINGas fri,r2.01,02 : integer; 


a OP ee OP ee et ee a oe wee ~ 


Oo: chars 


~~ ee ee ee 2 ee ee ee eee ee a ee a ee ee ee ee ee ee eee 


a5 A PESMLT OF G TALLY CF ce 
OPERATIONAL FORCES UTTLITY In 
POINTS... \° 


FOR GAME 'VEQRP *° ,wears’.’ DsPurite SSelt.°17 93 


Gia 


er 
LT OL, US i ka ee en hats, 
ends Ldec) sre% 
PROCEDURE TIEs 
beasin 
PUT lose ll a” | js 
PusrinciS.,!2,% | ao 
PITITCC S51 Ss" | .o.t} TIE [S GFECLORED ae 
ands £?.12* 
PROCEDURE WHO; 
heain 
WLOX LSe ll Isweritelne ~ | 7 peer IspynrecAS,11,°1% 6 
Ms Sais” | le tee 
PULITA LS alas’ | »e fS C8CLAPED WINNER a 
mri 5 Na] alan! aA 
3291Nn 
et 33 793 ~ Betas if ica rhen 13s; 
r2 3:3 rep - Babs if rash then -2:=0;3 
red s= rl + r23 
D1 := boa - ras if OLY then ol: =H; 
PZ := DOD - robs if 02°60 then 02:24; 
Dlue s= bl + AZG 
Bese s= “rnane’ : 


1¢ rerkblue then 
1? rerdehive rhen 
tec lare; 

le hest.=" name’ 
2152 wnas 


SURILC C7 sO,’ <Preces 


react gd) 
ZN 5 


PROEDURPE HAYRENF ; 
ae 

Aa? 3§ TUrIiNas 

ALs,sne,lasdirFf : 


rwen 


a,2ngller.)sra0r : 
inteaerfitd; 


hest,;se] auerc(il, 
neers =m} quem h 11; 


hie 
FPETLIRN ta Camtinue >’ 5 


mp Amer + 


LAP. SSIEK TT Set. ,JaANe sans Thar; 
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we 


ne) 
P 


LEOURE LUGINs 
e31n 


clearscreen; 

PULL Load," 

PURIRC Losses” + Ww ibd = RFRPRRRR 
PULL 13.65% Lhd \ tabled Po ar RPR 
PUBItG 1527.°* WW ) Lid HA 2A PRRFEFRR 
PULILE Loss,’ * WH WoW WW ay 4 og aR BR 
PIRitClssd.’+ vets Wh BQ mb RR RR 
PUTLILG Loslbs.’= bd bd a4 ere RR EP 
PUTTAR lsslls’* 

Pyutitr.ls,l2.,°*= 


2nd; Llaeq> 


PRLICEDLRE WHR; 


Var 


ao: chars m : inteaer; 


Begin 


losos 
m $3 year - 1; 
1¢ smaller=red then redbudaer.[]: =redniqger [m)]~-1gng 
2ise blubudset(m]: =blubudger fin] 1905; 
PULITCG L3,15,° 22 Nas PeeMm dgerlared 36 3 result of the 
PuUtILC Lo.t4e°* disparity between elaver cperarianal 
Putit?is.15,°= farce <= Lrenaths, 
Puc l3elss”< 
AOvtoxw 13417 33 


* x 
Set ter fet” Net rm 
Ne Ur wt es we we SE 


X 
wr we 


+ 4 
x 
Nr 4 NY 


we ¥ we we 


wurivelnd “> As 3 redult of the war “mame sPULITA BS.17 6%! 05 


PUtitCls.18,°= hae had next, weer’’s Sucieer, slashed by 
PULItC 13419.°= FLW, 

PHLiLe 26e21l.,°<Pre2zas PETHIPN ta Coanrinuer 3 

react da) 


2nds oa ay 


PRICEDURE UMPLIDGOs 


Orein 


ends 


 tlearecreens 
PUBLICS SA gS 5 0 einen ~ + _ 
PUt17,¢ TQ,5,° +++ UMP TRE ee 5 
PNTITC12,15,°00 wou wish to terminate the game C'o oF NOT D5 
Ataxw 54,15; 

re2zat done | 








fume LAao } 


PRIICEDURE WRRNOTE; 


AR | a 


Li 2: UNTePeer; ryy : char; 


Besin 


SMtay elo. lo» 


ee ee ine! ait ft \5 
BOROxn 1751593 
weiteling “The prapability af mar 13 2ctimated ta De “.1116°%. 
PHRILC 22.17°,°00 you wish amar to anenne "YY or NT; 
FOLOKM HALLS 5 
rea js) J 
ff ae Ce?) then 
gifts; = 
else dirrs=1aa 
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znd 


we 


Lara te + 
PROCEDURE RPLTSLLS 


PROCEDURE FPUTINE: 
var 
Lemelrrile 3: file or teme; 
pesin 
reuritedtempifrrleas “TEMPO: t.ement. data’: 
with TamPlfiles~ ao 
Dearn 
Lear rT syeswitred|et.ssrendlerrsrmlulert.:soluletts 
LA AASPONL $ =". 39¢PeENt 5 LOaaePent,: =M.sacPent, ; 
LYISPENL: =i cPenr. ;ThrePpent.:=p1 spent 5 
Lerepents =rdseent ;sLordspent: =ordspenrt,. s 
LNUMOFSYVSL PMSF SMUMAF SYST. OME 5 
Lroas =nastrod: =robstrda:=rdaitrdb:=rcbs 
tboa: =003st-bao: =ponst.nodas =pcastodm: =odps 
Leos =rostrds:=ardsirrdos =rrdost.erdd: =rrda; 
LEros=afensterds=semdstrredos =f renostreredds =f redid. 
t.60: =00;t0d3 =od;terdo: =ordo storndd: =ordd: 
ef bo: =" bostfbds =the sr.fardas =hedostrfordd: =F hrdds 
Liar Ont $ =Warc Ont sLPrLes =Prtwr ; 
t.2=l ayers: ==] ayers 5s rredmudget: =recbudzet.; 
5 luovdger,: =0 | UbUdaerT, 
ends 
PULC Lemele1 les; 
closeCtemetfrle,lack 5 
ands {CPuULONe + 


PROCEDURE PLTTWIs 

Warr 
.amPcH ile s File ae syareme.; 

deain 
rene? tat temecr 1 le.’ TEMPA: remend, dat.a% 15 
Lemecti,len 3:= 733 
PIU temech1l2 03 
Lemecri les 3= bs3 
PHL, LemPes 1) 2; 
closet temecfileslock > 


2nd; {Put tan § 
Begin 

PLULSNeS r 

PULL 
PGs Year gh} ss 
Desir 


3 25 random wag 1M; 
Nane 22> elayers( i]; 
smaller := red; 
laraer := blue; 

1¢ Bluered then 


begin 
Name := alayers(2); 
snaller s= blue; 
larger ;= req 


ards 
sins =emallor;la:s=laraer; 
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girth s= .lowmesias OLU las 
a3 =a5 
ynelosos 
Lf <daones’y’) ar «dane="'¥% > then 
bes1Nn 
clearecreen i 
BOtoxse 19,103 
metering “Da want meh to meeume Blau fram this PRInt’ 13 
sanoxw 14,1155 
inne y Toe ¢ st. 32 Later time to oam Ne 743 
read inns 
Le Same 'ee op are fo mma’ 4’) them eunalls 
MNaINt | ags =e_rye i 
2X1t.C yearend d 
nd 
= 
maint] aes =r a] se;5 
lt Cwarcante’s% ) or Cwarcanre’¥") then 


fa 0 


2i 


NaInNMALE 5 
1f Sloditt then war 
2nds Tt maybemar > 
begin 
WL Ner 5 
Na yWOpriyag re 
mands Caearenrt> 
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Pee Ce) TisThs SSAMENITEN Sencemiiesce cer cruoTl Sm cH 


ThYSSOTEM Thy TUE MOTH 


PROGRAM AS GRTCH 2 LISING THE COMPILER “INCLUNE” OPTION, CHE TO FILE 


SIGE CUNSTRAINTS. 3 


SEGMENT PROCEDURE UMPIRE: 


LAllows game umepire to alter, delete 


ne add s2etems to game Plays 


Riso PermiLs umpire to alter Player budget. fiaures amd erobsdility 


ar war. 3 


PRUCEDURE WRITESYSC J : 


PROCEDURE PORTS; 
PROQCEQURE PHRTt; 


PROCEDURE PRRTIBUK: 
beain 
ne roel nd ° 
wero RaD 55 
ner talnd 7 
we lRatcostu 33 
ner r tetrad 7 
weckalcoast 3 
We Tt Lind % 
we srae0cost i 
werrTelimnd ” 
ove sOSCJ)].urausr]? 
ends 


begin 
Wer? tbe ” 
werrtelnd ° 
te 6 rely). sore 
meiLaime ” 
1? «esCaj.sart. 
WrLTTL@el A 7 
4 Strats i. <er-. 
wriral ne ” 
if «ersCu). sort 
wrrnelnd “ 
merTel nd ” 
-’ oeslCul.yurRsOstarts 23 
cart. i3ux 
2nd 5 


ul 


PROLEDURE PORT2; 
mean 
urroel ne “ 
2° P3Cu). inventing 15 
weroeinn ° 
$’ sls. alcoast v3 
Her > Ce i ne * 
$’ .f3Cu).UP¢3st 23 
ur Laing ” 
meets lJ ).Utiles; 
“Wem rtTelnd % 
2 030]. Purlimit dsmeiteln 
2nd; 


pesin 


INtw2aerm 5 


mM 


T; 


m 
4 Pity 7 
B 


Yes PLD complored 3% game start....° ores). 
Secure | Sear MSE * 66s sslesieecee co sf SC0 16 
Secamd PEO wear COCRS. ce cccccccvee ds shSlul. 
TAUCS Gadi NEN” CINSES ccc es esesccc es Sli ls 


Farlic<et. vesr warlanle Carter R and 0 :...ce.- 


{part.) aur} 


SYSTEM 75505 


Names. ...0' S(t]. name lsmeritelns 


‘y 


or freCoj. tert. = ’9a’) then 
Tupe:.....ftensi'2 Suetem Heapan Tyee HW’ 5 


“NB > oe Creal]. sare, = “m7 2 then 


8 


“DRO? or fesCul.sars = ’da’) then 


B 


ORC Se mets \ocamet = “Dg? than 


S 


a 


ti 


‘= 


~ 


Tuper 1... If Ff one1ue Sectom Heapon Tupe 8°); 
Tyupe:....,Cefensiue System Weapon Ture A’ 3; 


Types.... Oerensive Syuctem Heaepon TRe 3° 15 


Sie ate wake HOLY i Sarl eataarC® «co 6 elses eee ccs se oceese 


{part ” 


Mintns In inventarmy fat aame starts... 
Saami, CTOs jet: 5 em WIFE? 1S 6 cis wiare so © 
DPE SOTNS TSC SCO” WNIT)? se oecss ee eee 
Pate I tlle Perr unit)? . 1 .sces cece ee 


Maximum ammual curehmace rates... ee eee 


c 


{parts 


OL 





Part lsPart2 


ends {part.2.3 
beain 

clearscreens 

Parr.s 
end; Tur yteaas ¢ 


PROCESURE FRINTSY'S; 
war 
- 3: charst 3: inteaer; 


PROCEDURE FPGRTI; 
PROCEDIIRE PARTLAUX: 


begin 
nerLeine 2,7 Yra BSN comelered 3c aqme start....’srsl(fl.y 
rota); 
WIA LTLO La ra 7 Piret, RAD wear COSC. ecco ewer cccee > srsli ly 
rifkatcost 33 
wr iteing zs” Seramd 22) sear COC Secor cece csceed srslti.y 
rcRaOcost J5 
WAL tel ne ry” Thre eS SRE CGO. Lc. cece cc cece sD sPtlf).y 
PERa0C SP. 5 
weitelnc rs’ Farliest year swarlaple Carter R and O7:...ce0- 
oe aeslf). yravarl 3 
PN: {oorr. 1 aguys 
besin 
wRIRe LN rs’ SYSTEM 7% oF 5 
WALLA ILNG 2,” Names... cee Pel Fh]. named; 
rr Creealf].saree. = 70Q70 sp freafO)}learne. = 29379 shen 
wetter’ 2.” Tame... AF fensiue Suctem Weapon Type AY 13 
if (rel l.sarr = ARTY on Cref Ol same = 70m’) then 
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PROCEDURE CHECK! ; 
begin 
aQotoxyw€ 15,143 
weitelne “Purchasina ’,mamrs.” tunities) af “%seaslirj).name,’ will 2xcee 
qd the annual ag 
merry Telad ¢ SUPch.3ce rane tar 2.h15 sustem. 
"3 
WLOX LS,lS urine “The su<tem srmsal eurchase rate 3: 73 
wmeiteindsysCrir].Ppurlimit dsanrayw JS,14 95 
hier eTec’ The number remainina +e suech3ase this year 3 753 
umpitrelnesyeCird.unmitouy): 
MWtEKwO 19,153 
wertelne “Do sau deeinre to sirchaeo Soner than % mands” Units?’ 35 
PULIL 1Las17.° <P ape AY a 
mrad ds 
rt €@ = °N49D or C9 = 7M’) then 
aesin 
clearscreen; 
mxX1TC DUyment >? 


> 


2nd 
2l<ee 
m2ain 
Purint 13,16, Seenter the number of system units desired rr 
PUTILC TBs L rs” Fallow urth FETLRN> 


readin«t many >; 
if many > syusCrij.umirnouy then 
pesain 


PULIRC TR, 19.7 YONI “SE NOT COMPESOT ING bt 5 
PHLILC 18,2,” <Press FETHEN tin exit. a3 
reads 


clear<ecreens 
Oxi EC oriuments 
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PN s Serheck 1% 


VTHE FOLLOWING SEGMENTED PeNCEMIPES GRE COMPILED OMO INSERTED [IN THE MAIN 
PRUGRAM AS PATCH 28 WISIN THE COMPILER “INCLUOE” OPTION. OLE TO FILE 
ST2E CUNSTRAINTS., > 


PROCEDURE CHECK2<( much : inteaer )s 
var 
Lek Integer; 


PROCEDURE WORDS; 
begin 
s0vox4( 5,19); 


weitealme “TP you cantinue with thie 
Ler Ssestens” 33 


INTIKYWC 5.1995 


meriLelac’? ta lawer your qperarina cosra3 yan will Aave an annual a 
eficit. Tmpret 45 


WLAKY Soca I; 
MPI tein “th1s amount. will then ae geduct.ed 


Purchsse snd da not scrap any oa 


rram next year’’s Sudae 


29tOxKw Toe! oe 
werrelnAc “Oe sau wish 9 TANT Rue ONE PATS sCIUISIT.1ON?’ D5 
BORAX ZA, 2295 
urit.elng ’ 'S ae NESS 
readl ee); 
Ie 62 = ND are = %R’ 1 Phen 
Peain 
cs learccreen;: 
eri tt buymerntst > 


ands Cuards + 


AL SZ MONS 
PUITA SB ol, WORNTNIS’ 9: 


AULA LS »2, ‘au awe Ant smo|ah flnds -emalnine in the year ta make’ 


PITT 1D 03s“ the decired 3cMWNsItION. * 23 
POT LS 5 


ite Geren ane WT Ul. kG kg esd « © o oS eae See ws eek wee as ,oudaet.( year ) i 


satus Lise ts 
Ne LTieinn “Qmaunt. spent 


anravat 17,3873 


WeILein€ “amount. spent. foe intel lraemro... ee ee ce ee 
INtaxXs 17,415 

werLeine “Geant seen. oe B and Di. eee eee cc eee 
ee Pat TE 


emote] Por 241s 12id)8Mms. 


cee SD serene J5 


ror kK Ss 1 to numatrsyertems dn 
1¢ syslk i. delete = 4A then 

Tete sushi ],cecosr.t.r.) 3 
aarax'ss LF las 


Ls 





WRIte INC “Smown, Lo operste all current.* 5 
sanoxww Le.ilos 

trp oe la ° TMMenLar 12 
antaxtat 17,1253 

Rei Pele “Amount POMarMin...cceree- eevee 
sntax'sC 17.15)3 

umrteine “Hea1ertiar and cperarina ens. 
IWLOK LP, 53 

wireline ” me UST OM BAP Telemed, 6 ee eB” PIMICH DS 
antoxs€ 1P,1R 15 

dericzt. := leaet = oichs 

ed re OOP MLOME NT selfs else sss oso ss sb s esac es ecees ceed sd@F1Clt Jz 


eee a rome 


Gu 
-+, 
< 
e 


Ua Herereaveesctets ste ok 


“ 


Ft 
Ven” 
wi 


WORMS 

ends frmeck.23 
PROCEDURE BUYIT; - 

it a 

DSck sQ1IN 2: Inteagerzadel : chars 
resin 

It inane then 

desin 


Tlesrecreens 
mt1t 2d,1R. fh) CON OT Bly MERATINE LINI TSI 7 Ys 
PUTICC 24,11,° <Press RETURN ta Continue >” 33 
reaqtidel); 
2X1 Ouyit) 
rs 
pack 3 Ceyel11). inventarsemany s-suel11).tvals 
1? back<f then back:=;3 
lf mans<=pack then intm 3: = many 
alse min := packs 
If PercANn = Pl quer<f1) then 
bean 
medlearr. := rendlere - nanuecue(iri.oepcaet - mineeys( 11). 3a9C06t5 
mans Pent $= fpaacment. + minecue( 12.1). sar AST 5 
afFriuj.umitmig se esfriloomitanes - wane; 
3C11J. inven a, seorsCiil.inventers + mangs 
Beet kee zs refit), opeosatnr) = reti1).apcastemany3 


esCirild.uriletz,] 2:2 reCii]eurilane.) © -6f11].0t1 lesmansy; 
3445 32 P< 


* 


any 
2lse 
sesin 
Blulerr sz blulett — manyvecsets 1) oecoet - minesywsl11)]. 399C0Sb3 
SAIsPent, -= Saaepenmr. + annecuef 7.171, sare i 
osCirj.eunmirtuy 2= aeipri.eumititrs - many: 
osCirl. inventors := o<firirjdi inventory + nanys 
See ee ae := 4° Scere ~ oeCiirl.opcostemanys 
Sscitj.tzrleerl := pelCiir2c.ur1l 1 © pefit).iit21ilsemany; 
T4353 8:= FS 
end 
2nd; aah Gas 
PROCEDURE ‘SRAPIT 
War 
Back smin s intesers;ael 3: char; 
hearin 
tt mans<y then 
nesin 


rl esrecreen; 





PULIth 25.1H, YAN CONST SBOP MEGOTIVE UNITS!’ 93 
eunin¢s5.,il.° “Press RETURN to Continued” 35 
read ite) 35 
2X1LC SseraP1t 2 
ands 
hack := z4eL1i). inventarsecyel ti}. nual: 
1f back< 3 then Sacks =H3 
lt mans<=pack then min := mane 
2ls2 min 3:= packs 
it Person = Playvers(1] then 
beain 
rediett. := redlert + manwesyvelii ji apcost + minesys(11).aecasts 
raaspent, := raaspent — mirm\ecusi11). agens?.; 
rsCirj.unitcuyw r= esCrildeunitous + manys 
esCiil.inventory := esCilrl. inventory —- many; 
rsCirjJ.opcosr~tl := rafiil.nrpcosttr.l - reli1).opcast=manys 
rsCiril.eutilst1,l s= reliil.util)sttl - rsCirjutilséemanys 
t4$ 3= 7s 
end 
2lse 
pesin 
Olulet? s= blulett + manuecue(i rl]. qpeast + minesys(i1)]. aacosts 
baaspent := paaspent, —- minmre<ye([ii). sacos?.s 
bsCiij.unitouy := beCiileunitouy + many; 
esCiilj. inventory := 6$f11). inventors - nanys 
esCilrj.opeosrr~tl = asCirl.apecoaenztl — baf11)]. openstemanys 
esCirj]euvilsttl se Befiileurirlertl - bslrirjeurrlssmnanys 
345 3= Be 
and 


2nd; {LScr3gP1t + 


peein 
lt Percan = Pl aver<{1)] then 
pegin 

3vdszer, 3:3 redbudae.t.; 
lett, 3:3 reqlert; 

BAEP ONT 3 = C3AAGPEN?.; 
LSPeNnt. := r1aPent.; 
“JePOnt 3;= redspent 


and 
212 

peain 
nuaser, := olunudaer,; 
len s= blulett; 
396PeEnNL 3:= Oaqepenr.; 
SPent. := DisPenL; 
BYSPont. := Deepent. 

2nd; 


IOLOKW 15,1493 
1“ Liste"e" then 
oFain 


wep tein “Soe many timit.s at wserem “,s4elitr] mame,’ to sou want 


. £o 
scrapr’ 3; 


readin’ many 9; 

SIP SP1T5 

2100 DUYHOtIMC hy ) 
ends 


WeTLe2 ine “Haw many unite of seetiom “,seef1il. name.’ to “ou want to eure 


Le) 7 





reading mane 23 
tr many > susCirl.unitonw them chect?} i 

ba := ¢sy6C11). inventorsemany —suslii).tvals 

if ba<& then bha:=a;5 

Lf wmany<sha then mi := many 

21352 mi 0.35 
aXYPeNnse := Cit}. aeqnstem?t * 240071), 2Prastemanys 
if expense ert, then checker expense '; 
duyw1t 
ends T bushaeimetc hp + 


‘ 


_ 
é 
é 


»= 
¢ 
sue 

l 


PROCEDURE BUYMENUs 
PRUCEDURE NEXT! 


PROCEDURE NEXT23 
meetin 

SNITOXY* 35,13) 
WweiTed “S$” ,aus 
ITOK $7,135 23 
mercedsyeli11).utn1ls 3 
BOTY! 55,1593 
mre ayeCrid.emit.onw; 
HITOKYC BS.15 35 
ur rtec “S% ,sweali1). OPeaer.TTl 33 
SOTOXKY¢ fae Py cs ts 
wmmrrec aye(Cr1)].uerlseiThL 3 
PULITCL»l+,” 


12).,.UPener. >; 


or!{( we 


ends Tnevt.2) 


neain 
AOT.OKH 1,75 
Wet taelni - 


- 
TT ade at 0 
3 
tery Roe ine % 
1% 
Werte Ln “ 
15 
merLel ne % 
4% 
ney to lint ” 
5 
mr TRS TN “ 
‘3 
PuTint $58, UIPORTEN SYSTEM TNEMPMOT ICN: ~ 43 
PUL TA a TW» ° an np PLIRICH 
ToT St ns 
PUIRITC Zell SPSTEMC TYPE) INVENTORY = oCAST = =cOST UTILS LIMIT 


Berita) WrtLs .* >; 
IHITIRYE 2133 
weinaine sasfirl mames’! “.ssefr1). sorte,’ 32793 
INITIIKYE 2151595 
meinecasel 11), inventarsy ts 
ISAT IIK Ys, 305135 oe 
ue Ttiee ES” sauei ir). aMeaet. 03 
Next, 
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2nd 5 


beatin 


NTA 


PLIST 


ends 


clesracreen: 

PULITC tel e°SYSTEM INFORPMATITING * 1: 

PULIRC Sede” aT) 
pp 

PULIR Zed, SYSTEMS TYPE) 
Mitiliss ~~ Bs 

SOTO 2,5 


TNHIENTORY 


merepeine suelrrjJ.name,’C° ,swefii).zare, 


ISNTOK 21.595 
werrecsyue(ri). inventory 3 
ISOTOXKYC 3B 5593 

we} tae ° S% ,3ysl11].Rk0enst D3 
ISOTOIKYC 38 565 3 

wer ted ~S%,sueal11).0Peost 5 
IOTOX'€ 474593 
mertecsyeCiij.uitr ls ds 
IDNATOKY 55.65 25 

were syelir)].unmitouw 5 
HOTOKYC BS .R 5 

wernec’S”’ .sueC11).0Pener TT). 35 
ISITOKYO P34 5 

weyned syse(11 

DuywnowmIc hs 

next l 


Peuet ls) is 


PRICEDURE WRITEFIFST;: 
meain 


2nd: 


anr.axsc 15,1593 
Wi T tor bn ” 
“ar 
wrtnaeine 7 
e ie 
tut Ta Line ¢ 
13 
4p 1 tel ne Z 
ve 
WNt.OKw 12,155 
Werraind “Enter rhe 


YALL OF TRAP ? 


PROCEDURE WRITESECOND; 
oesgin 


Faroxwt [15,1433 
RIL Tae Le ” 


Jp 

we tae lL | 
[hs 
werLeaind 7 
er 


Key Tar lad % 


f me 
Het Poe Lind ” 


aat.oxwe 15,155 


uP rRealne Ma sau mant. 


oe 4% 
wen” Ss 


PALIYMenu + 


name at fhe werom whe THUeNtars 


“pew. ) 


np CHURCH qe 


Cyst ie 


| 
yy 
~4 


UTILS LIMIT 


= 


mich Lo 3lter. 


TO Wake anarher t*3ana0c7 aa I; 


EOS 





2onaxs 15,1623 
mr LTLeLne ” fSnrcoe ‘Pe ins NY ‘> 
read ansier *; 
it (answer = “4 ar 6 anscimer = oy’) then 
PX1LC DULY?) 

else case 11st. oF 

“A eC § BKIRC OPSLALLUS 15 

“RY og OMI avatars) 

ery 
zruds 


beain 
fer 1 s= 1 ta 14a do 
bean 
wor = 1 them writefirer 
alse writ.ececonds 
PULILE As 16.” 


oe 1G 
PUITITC 172165” f Fallan with SETURN > 4); 
PUITIRC 27 ole eX Tupoe DO ta Myre ae 


reasdine choice): 
if eehenaeos “DN ) or (choice = “a’ > 
then case list. ar 


“A 6°" ¢ aKILC OPST. ALG 15 


“OY § OMIT Qieratua ? : 
ends 
Ll $3 5 
InLT1t := false; 
repeat 


1. t2,.11. > tes 
re Cehaice 2 sueCit]. name> or 6 2t > numetssetemeas then 30t1t. 
25 
WALL) Sanit: 
1f <zAMIic?®? = 
2ilse 
nesin 
neles 
exind bur? 
end 


ri 
¢ 
5 
c 


syusfiij]. name Phen Prive 


end 


PNGs + al > 


DESMENT PRNILEDURPE ROSTATUS Crpercan ; 


2 slLPins 7s 
Llalled tram main menu. Provides for srncurement and display of neu 


F200 oPeertunitiess, shelved R30 een.jerts, and ePenyerts In work. 
Mllows @lauer to change the status af sng ownyecr.. lipdates 
aheluing een3glties and all R&D eveenditure fiaurmec, | 
war 
suitelaa : Sonteans to: shares title : arrinas leet, much : intesers 
34SPent,, isPeNnt., cispent. : infeaer; Budacer : array 01..29] of Integers 
PRUCEDURE ROHEQDERC uhere ; int.caer); 
hegin 
clearscreen; 
PULILC 2B swnere.»~title ds 
3gtaxs 1,393 


WL Tor ine ’ YES ee TOT MOS eR 1 ‘2 WR 3 BEG iP 
PUSRID 25 
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eter Meme Tree > EOMPEETEN REO’“D ist COST CUST CUST LOST 
Waits PATEsS; 


weyteln 
ends Lerihe acer + 


PROCEDURE LISTIT ¢ 1, counter : inteser 15 


var 
1, inane : inteaer; 
besin 


1 3:= 5 + counter; 
FAtLOKY( 1.) Dserrrecsuelr i omame.‘o’%,aweli ld. zort..% 9% 95 
sotoxe€ 15.1 swritedsuslil. yrorRa 3; 
aS = Bs 
1? sy¥sCij.wsRadenst > A then many := 3 
else 1f suslil.wcRateoset > 4 then many : 
else 1% syelil.uriSalieosr. > A then many : 
BIOLOXyYC 25 51] dsr lL ted many 3 
FOtvoxw( S2.1 swritedc’s’,ayeli J. er tPatenst. 33 
SOtoxy€ 38 51 dsr ted “3% ,59601). sr cRa0c oct. ); 
FOLOxw 34,1] swrited’s% ,s4eli). ur sRatenst 23 
SNtOxs€ SA.] Dsurited “3% ,sys(1)].RGeost v3 
3OtLOxwH SH, 1] sete 78% 6406 1), 0P esr, 3 
907. Ox RS .] dsurinedcsys(1)].uniils 3 
S07.0x *Os 1) Dsmerredcsasel( il]. purlimit? 
ends Clrsuir) 
PRUCEDURE CHECK; 
ware 
ReNsGeFici® 2 inte2eaers cos char; 


yf 


PROCEDURE WORDS; 
beain 
antraxa( 2,183 


WerReing “Ts anu canine with thre erniect, and can nat zcrse ar sneive 
any ather suctreme~ '; 


Itorxse 5.193 

UAT Reine “Cta loiter anue aperarina cenete) unu mt])) nm|aue an annual defic 
it. © Twrce’ %5 

FOI 11,289; 

mMrIiLelNe “thle amnunr mpl) then me ctemicrod fram nerr. sear’’s Dudager. ” ) 


antaxw 15,21; 


PIE eliN “OO ‘sau rsh fa coOMtintie mitn thre rmueet.memt?% 5 
FOL OAXW 2A 22); 


nproielnn ” CY AP Nf 85 

read co; 

it ero Mm cS He they 
beain 


clesrecreen;: 
210 ecstatic ) 
=n 
ands Tetris 


neain 
clearscreen; 
PUTITC B61» WERNING’ 25 
PUI LS s2, Cra Have Ant. snanan fonda remainina in the year to make’ 3 
PUTILE Lo ass“ Line decrpern tohieet sen. i 
Fata 17.505 


|-- 


SLE 





iip> Ptacmalicee UE IRM. g gers" esi e's ccc a0 0ele ser seeds se ce ss ooo ® Be OUSMef wear) 25 

anraxw 16,773 

mer Teing “Amant. seent. erevrwrsls For sevirsarrioms,... 5% -sasrent. Js 

SOLIMW LP; 

mmr teing “Amen pent. For rnrell rae, cece cee cence sD SL SPANL IS 

ANTIK LE SI: 

merLeind “Smaunt. srevyously seen fine S amet fl... ee ee eB” oPISPONt J; 

to aes 

re A sel tan 
1¢ <«4s{nJ].del 
t. sen & sual 

AOLOxs 1, 1A ss 

wPIiLeint “Amount ta operate 3]) current.’ 5 

antaoxsd LY >t1 95 

me yrelne 7 VORIOMUOR TRS. cc sss cc ee eo ee fs I5 

anroxs€ 17.123 

iat tw ee MAL PAL MILES en 6 ces cae 5 os et Ser wes ccc cee Lett. 

annaxyw 1? .1a%5 

upynerilnc’R and O casts “rneluntima any penalty far ee 

antiaes€ LP 51493 

WIT Rael eheivinead far wegenn <yerom celected... 2.3% sinuch ls 

aaa 1,515 

Wericizt., 23 Lett. — much; 

perate OMMEe PINES co lclete sc cy. <0 0 6 es eens toc sveestsccveeed’ sO ICTR I3 

WoRras 

ends trcheorc } 


we 


PROCEDURE CROs 
var 
l» TQUNTer, Where : Integer: 


PROTENURE MHOWSE!; 
Lae 
> 3 ShReimnas so f rNteaers mit THAR: 


PEOCEDUFE MNINEY 1s 
peain 
lt Persan = Player<e(1] then 
mheain 
MUCH $e rel... we le senna. z 
tf much > redler. them check; 
redepent. := redepentr. \© raf i loyurtRaficosr.; 
redlatt 3:2 redlerrn. — reCil.ywiPalcoer 


much 32 meCiartlwetPalicae? 3 


if Blyulert < much then check 5 
OrdaPenr. := merispenr. + Bef dant oaNener.; 
Sluler, 3:= pbluiets - aslul. yet Rateoer. 
end 
25 Syne] + 


neain 
Pela lds «+ NTE: SL NEW SE SREIECTS ATLL BE =” * 
eutitc 19.15," + SHELVED GT VEHPEND UNLESS will) 4°: 
Purrtt La. 1b. + NC CSCTONATE = 
sarin Lelio; 


we We wt 


eZ 





Wie rReing “Yau Aaque §%,]12¢8,° remarnina in this yuear’’s budaet’ 5; 
PULIRG 7rcMs,’Entrer the name of rhe cucetem mance BAD yau mien to heains 


PUTLITO 7 ols’ {Tape “aur.” / 
S80taxs( 65,28 isreadin’ 2): 
rece S “ANure.%) ae 62 = Cat.) then evitcerd)D 
aise 
besain 
ae 1 se 1 ta nimaf<auet ems cin 
beain 
1f 


Ro RIL? 4 vs 


a4eCil, name = 2 Len 
bean 
Manes! 5 
sus(Ci). satus := 23 
lf Persan = elayerse({1] then re : 
alee Pa 32 2Na; 
2 lPparscroen; 
anroxst 14.105 
WP yTTeine “REO fundina has heen 31 ]lort.ed t.9 PUreUe ayustem %> 


rT 
it 
y 
f 


Pe aus lopment, ~ 5 


Pte Asils~” {Peees RETIUBN to cantinite>’ 33 
readin); 
ay1.c cer) 
2nd 
2nd 
mNTY > 
help 
arts Cchnmeet | 
Pesan . 
TUM 2S MG 
where == 15 


ct leagrscreen; 
hit.de® 3s= “NEW FRO OPSARTUNTTIES? 
rahe ader  uinere ); 
rine] ss 1 LA mLimarauerome do 
begin 
TF 6 suey) arPalerare.< “= year) and (sucCijlinanue = 1) then 
1? sysCij.delere = A then 
y2a1N 
CQUNTePr 8= counter + 15 
LiISBIB Ls CAIN) 
end 


nds 
Znames | 
rnd; 


PSOCEDWRE CNRO; 
war 
MNS, Ll» TOUNTeEr 3 INT camer; 
PROCEDURE CRUISES; 
‘lar 


PF 3 SURINGAr 8: INnteaers mis char 
PROCEDURE MlINEYS; 


PROCEDURE MINEYSO; 
sean 





rt oelul.arneRsl = 4 then 


peain 
Pedepent. := hedcponr. — (heft thalienet, + e031], Penalty; 
Dluletr ¢:= blulerr - (beful. Lieaneeee + elu). eenaltra: 
>I 5 
1f bSsCul.yrotRad = 1 then 
Bean 
Prodéepent. := ordspenr - aful.artRateast + nelu).Ppenalt's 3; 
Plulett, ¢= Blulorr + ye ee J.4ar2R Neos, + eC] penal tess 
=r 5 
1f O<CuleyrnfRali = 2 then 
hePsain 
Orispent. := prdzepenr -— ORC]. ersrPateoat © os(u)].pemalty 3 
blulefs := bluleft. + Chel l.ursRsfenst + bSCu Tl. penalty) 
and 
and; fmanewZ at 
hearin 
lf ePeraan = PP) quere(1] then 
beain 
rf wsCald,yrotRa0 = 9 then 
hesin 
rericpent. := rerispent. — relia loeritksleost + reCal. penalty 3 
redlef, 3:3 renqlert + (reCiujiweiRafiener + rsCil.renalty: 
ard 5 
rf esCul.ywrortRad = 1 then 
neain 
rreqepenr, := redapent, — (rafil,we2Sa0cost. + reCul.penalts>3 
renlef?, sa redleft + (re(sl ore Rateost + reCil. penalty: 
2 5 
1¢ esCil.urnfRat = 2 then 
Peain 
red<epent, := rerspent, - orncfi lor tRPadeasr, + reCul.penalt-s 5 
redler? := reqletr + (refol ur tPafcasct. © re(.i)., penal tesp 
anry 
and 
pLl=s 
NAN242 a 
ands {inane 2 
beain 


wraKwt 1751 )3 
HMmerLeaim¢ “rou Rave $7 ,1,2¢°%,° -emarminea mm this war’ ’s Sudaer.~” 15 
PULIRC 7.21,°Enter the name af anu eestem mingse RVD cent wish ta shelve: 


PUTIUM 6 »eZy’ (Type “omit? tu sults os 
BAT.OXU RB 1 ermeartim 2 i: 
tr 68> = Tre’ 2 on 6 > Se mat. 7 PL beM evoirnd emmy) 
wise 
7ea1N 
Par ft ssl LA Mima sseremse do 
pesain 
1? see(i]iname = 2 then 
mean 
MIMOSA 3 
ays(ij.status 3:= 33 
16 peRtAN = eiaguere(1] then se := ry6 
alae he 3S Suds 
rl 2arecreen; 
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BATLOXxa 1G, 18 
Wwetieline “RRD funeinea has cur fram further pursuit of swste 
iN * s@,” Gevelapment,. ~*~ 3 


putreCtAells” (Press RETURN to cantinue>’ )5 
read n>; 

2eirt cnred> 

and 
and 
2rd s 
n2tP 
ends Lehoo«ed > 
pesin 


Counter := A; 
wnere := 
c learscreen; 
Crue ote PONT INUED S20 NPPORTUNITIES ; 
roaheader  uhere >; 
for 1 3:3 1 to numotsyetems ce 
begin 
1f Cayeli). yRalstarer.s “= year) an Ccyef[1). status = 2) tnen 
if susCil.delere = 4 then 
bean 
counter 3:= counter = 13 
Listhitdis, counter? 
erg 
ends 
mhoosedc 
ands iomery > 


PROCEDURE SRO; 


var 
WMEPSs Ls TOUNTOP s inteaer: Fos char; 


PROCEDURE CHOOSES, 
war 
2 § Sbrines «= : inteaars; ms char; 


PRIICEBURE MONEY'S & 
PROCEDURE MONEY SA; 


heain 
rf osful.sentRs0 = 4 then 
heain 
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